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A  SYSTEM  FOR  COLLECTION,  PREPARATION,  TRANSLATION, 
AND  COMPUTER  REDUCTION  OF  DIGITAL  HYDROLOGIC  DATA 


by  Jan  C.  Carr1 
INTRODUCTION 

A  system  for  collection,  preparation,  translation,  The  following  sections  describe  this  data-collecting 

and  computer  reduction  of  digital  hydrologic  data  has  and  processing  system  for  digital  hydrologic  data.  Field 
been  developed  at  the  Northeast  Watershed  Research  data  collected  from  the  Mahantango  Research  Water- 
Center,  University  Park,  Pa.  This  system  represents  a  shed  located  near  Klingerstown,  Pa.,  was  used  to 
significant  improvement  over  the  tedious  handwork  of  illustrate  the  operation  of  the  system.  A  flow  diagram 
visually  recording  data  from  a  pen  trace  chart.  of  the  system  is  shown  in  figure  1 . 


The  use  of  digital-recording  hydrologic  gages  pre- 
sents several  problems  in  the  development  of  a  data- 
processing  system.  (1)  Visual  inspection  of  recorded 
data  to  detect  instrument  abnormalities  and  correction 
or  identification  of  such  malfunction  errors  is  practi- 
cally impossible.  Thus,  operators  rely  on  the  computer 
for  detection  of  these  errors  more  so  than  on  analog 
chart  data.  (2)  The  amount  of  recorded  data  produced 
is  large,  because  the  readout  device  operates  continu- 
ously; however,  this  volume  of  records  is  easily  handled 
by  high-speed  computers.  (3)  One  advantage  of  this 
recorder  is  minimum  human-contributed  errors.  This  is 
due  to  not  having  to  transfer  and  correct  data  from 
charts  to  computer  input  form  manually. 

Corrections  may  be  made  upon  digital  data  records 
manually,  but  these  are  normally  restricted  to  areas 
that  tapes  may  have  torn  or  that  may  have  been 
disfigured  by  the  recorder.  In  this  case,  the  proper  gage 
reading  must  still  be  recognizable.  (4)  The  ability  of 
this  recorder  to  run  continuously  and  unattended  for 
long  periods  of  time  is  a  great  advantage,  because  fewer 
site  visits  are  necessary,  and  less  time  is  needed  to 
identify,  process,  and  store  the  records. 


Hydrologic  technician.  Northeast  Watershed  Research 
Center,  Northeastern  Region,  Agricultural  Research  Service, 
U.S.  Department  of  Agriculture,  University  Park,  Pa. 


Figure  l.-A  flow  diagram  of  the  digital  hydrologic  data- 
handling  system. 
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DIGITAL-RECORDING  GAGES 


The  type  of  digital  recorders  used  on  the  Mahan- 
tango  Watershed  network  are  the  Fischer  and  Porter 
precipitation  gage  (fig.  2),  water  level  gage  (fig.  3),  and 
tide  gage  (fig.  4).2 

The  precipitation  gage  mechanically  converts  the 
depth  of  accumulated  precipitation  onto  a  binary- 
coded,  punched  paper  tape  at  selected  time  intervals. 
This  gage  has  a  standard  8-inch  orifice,  collector 
capacity  of  20.0  inches,  and  recording  accuracy  to  the 
nearest  0.1  inch.  A  rain  trace  sensor  is  incorporated 
within  the  gage  collector  to  provide  a  more  accurate 
record  of  the  beginning  and  ending  of  precipitation 
events.  This  sensor  operates  normally  during  summer 
months.  Timing  for  the  collection  of  precipitation  is 
done  by  a  5-minute,  solid-state  electronic  timer  driven 
by  a  d.c.  power  supply.  The  5-minute-interval  punch- 
out  provides  105,000  readings  per  gage  during  a  1-year 
period.  Of  these  readings,  approximately  500  will 
suffice  to  describe  precipitation  events  that  occurred 
during  the  year. 

The  water  level  gage  incorporates  a  float,  counter- 
balance pulley  mechanism  to  transfer  streamflow 
depths  onto  punched  paper  tape.  This  gage  operates  on 


Figure  3. -A  digital-recording  water  level  gage  (streamflow). 


Figure  2. -A  digital-recording  precipitation  gage. 


Fischer  and  Porter  Company.  Precipitation  gage-recorder, 
Instr.  Bui.  35-1558-1.  punched-tape  level  recorder,  Instr.  Bui. 
35-154M,  Rev.  3.  tide  gage,  Instr.  Bui.  35-1550,  Rev.  1.  1970. 


TAKE UP  DRUM 


■  INPUT  SHAFT 
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OUTPUT  DRUM 


Figure  4. -A  digital-recording  tide  gage  (ground  water  levels). 


a  5-minute-interval  punchout  s  the  precipitation  gage. 
Approximately  10,000  of  tun  105,000  readings  are 
needed  to  depict  the  fluctuations  of  stream  depths 
during  the  year. 

The  tide  gage  for  recording  ground  water  well  levels 
differs  from  the  water  level  gage.  The  gage  uses  a 
counterbalance  spring  in  place  of  a  counterweight  to 
facilitate  measuring  water  levels  in  a  well  pipe,  where 
sufficient  room  is  not  available  for  a  counterweight. 
Both  the  tide  gage  and  the  water  level  gage  record 


continuous  water  levels  to  the  nearest  0.01  foot  up  to 
50.00  and  99.99  feet,  respectively.  The  tide  gage 
operates  on  a  30-minute-time-interval  punchout,  with 
each  of  the  17,520  readings  per  year  used  to  describe 
continuous  well  levels  during  the  year. 

Each  gage's  punchout  mechanism  may  be  operated 
manually  by  means  of  a  switch.  This  manual  operation 
provides  a  test  on  punchout  alignment  and  gage  time 
versus  clock  time  synchronization. 


DIGITAL  PUNCH  PAPER  TAPE 


The  punch  paper  tapes  shown  (fig.  5)  have  a  width 
of  2  1/8  inches,  and  a  length  that  varies  with  available 
time  scales.  One  day's  record  with  a  5-minute  time 
scale  requires  28  5/8  inches  of  tape  length,  while  a 
30-minute  time  scale  requires  4  7/8  inches. 

The  paper  tape  is  divided  along  its  length  into 
crosswise  lines  which  represent  the  clock  time  at  which 
punchout  occurs  (see  fig.  5).  A  5-minute  tape  is 
identified  at  1 0-minute-increments  in  the  center  of  the 
tape.  Hour  lines  are  marked  by  heavier  lines  and  are 
identified  in  the  military  time  scale.  Each  day  on  the 
tape  is  consecutively  stamped  with  red  numerals.  These 
provide  a  count  of  the  total  tape  days  elapsed  from 
beginning  to  end  of  a  record  period. 


C-  SROUND  WATER  TAPE 


Figure  5. -Digital  punch  paper  tape  usage. 


The  tape  is  divided  into  16  channels,  two  wide  black 
lines,  an  area  along  the  tape  center  that  contains  the 
time  interval  markings,  and  large  sprocket  drive  holes 
that  are  used  by  the  recorder  to  feed  paper  tape.  The 
16  channels  are  subdivided  into  four  groups  of  four 
channels  each.  In  the  individual  groups,  channels  are 
binary  coded  "1-24-8." 

Any  number  can  be  represented  by  the  appropriate 
selection  of  these  codes.  Those  codes  not  selected  are 
zero.  For  example,  using  the  tape  for  precipitation  (fig. 
5A),  a  summation  of  the  farthest  right-hand  group  of 
punched  holes  establishes  the  tenths  digit.  The  next 
group,  moving  from  right  to  left,  gives  the  units  digit, 
and  the  third  group  provides  the  tens  digit.  Since  the 
recording  accuracy  of  this  gage  is  to  the  nearest  tenth 
of  an  inch,  and  since  capacity  is  20  inches,  these  three 
groups  provide  a  three-digit  precipitation  readout, 
leaving  the  hundreds  digit,  or  the  fourth  and  final 
group,  unused.  Normally,  during  the  summer  months 
when  the  rain-trace  sensor  is  operative,  a  trace  of  rain  is 
noted  by  a  trace  punchout  in  the  binary  8  channel  of 
the  fourth  group. 

The  punched  paper  tape  (fig.  5B)  used  in  stream- 
flow  recording  is  identical  to  the  tape  in  figure  5A, 
except  that  the  four  groups  provide  a  different 
numerical  representation.  The  first  group  represents 
the  hundredths  digit;  the  second  group,  the  tenths 
digit;  the  third  group,  the  units  digit;  and  the  fourth 
group,  the  tens  digit  of  a  four-digit  number.  The 
ground  water  level  punch  paper  tape  (fig.  5C)  differs 
from  the  streamflow  tape  (fig.  5B)  only  in  its  time 
scale.  The  two  wide  black  lines  shown  on  each  tape  are 
channels  for  the  placement  of  translator  alignment 
holes,  which  are  automatically  punched  in  the  tape 
during  each  5-  or  30-minute-punchout  to  provide 
proper  tape  alignment  during  the  paper-tape-to- 
magnetic-tape  translation. 


3 


GAGE  LOCATION  IDENTIFICATION 


A  watershed  identification  number,  developed  by 
the  Agricultural  Research  Service,  was  used  to  desig- 
nate the  State  and  watershed  location  within  the  State. 
The  State  location  number  assigned  to  the  Mahantango 
Watershed,  Pa.,  is  16.  Each  of  the  six  subwatersheds 
within  Mahantango  Watershed  were  numbered  0.01 
through  0.06,  and  the  watershed  identification  num- 
bers, referred  to  as  IWID,  are  as  follows: 

Subwatershed  Stream  Gage  IWID 

Mahantango  Creek  GR04  16.01 

Deep  Creek  WO  16  16.02 

Little  Mahantango  Creek  GK27  16.03 

Pine  Creek  GM27  16.04 

Run  Stella  Run  WJ30  16.05 

Three-Square  Mile  WE38  16.06 

The  combination  of  watershed  identification  and  gage 
location  numbers  provides  sufficient  numerical  repre- 
sentations of  a  particular  gage  within  a  certain  water- 
shed. 


Figure  6. -The  gage  location  grid  system. 


A  one-half-square-mile  grid  system  was  developed 
for  the  Mahantango  Watershed  to  identify  each  gage  by 
a  numerical  location  code  (fig.  6).  The  north  to  south 
grid  lines  represent  parallel  longitude,  while  the  east  to 
west  lines  represent  parallel  latitude.  Grid  squares  were 
lettered  alphabetically  A  through  U  from  north  to 
south,  and  numbered  1  to  65  from  east  to  west, 
respectively.  Further  subdivision  of  individual  grids  can 
be  provided  to  give  more  accurate  gage  locations. 

A  prefix  was  used  in  conjunction  with  the  gage 
location  to  indicate  the  type  of  instrument  as  follows: 
R  -    An  individual  rain  gage  location. 
M  -    Meteorological   sites   (rain   gage,  evaporation, 

wind,  humidity,  and  temperature  station). 
G  -    Open-channel  stream-gaging  station. 
W  -    Weir-control  stream-gaging  station. 
A  -    Aquifer  (ground  water  well  station). 

Example:  RG32  is  a  rain  gage  recorder  station.  R 
designates  rain  gage,  and  G32  is  the  grid  square 
location  code  of  the  gage  on  Line  G  and  Column  32. 
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PAPER  TAPE  DATA  COLLECTION 


The  maximum  paper  tape  collection  period  varies, 
depending  upon  the  punchout  timing  cycle.  Experience 
with  the  Mahantango  network  has  indicated  that  a 
monthly  collection  period  is  most  efficient  when  those 
gages  are  operated  on  a  5-minute  time  cycle,  and 
twice  a  year  for  those  gages  on  30-minute  cycles.  The 
punched  records  are  stored  by  the  gage  on  a  takeup 
spool,  with  the  beginning  of  the  collection  period 
located  on  the  inside  of  the  rolled  tape. 

A  10-  to  12-inch  length  of  unpunched  tape  precedes 
die  punched  record.  The  unpunched  area  is  used  to 
record  notes  such  as  gage  number,  beginning  date, 
time,  and  punched  value.  Prior  to  the  start  of  record- 
ing, a  series  of  six  or  more  manually  initiated  punch- 
outs  are  placed  in  the  tape  in  the  area  beyond  the 
notes.  These  punchouts  supply  the  feed  alignment 
holes  required  during  the  translation  procedure.  A  red 
felt-tip  marker  line  is  drawn  across  the  beginning 
punchout  of  the  collection  period.  This  line  separates 
the  first  gage  punchout  time  interval  from  the  preced- 
ing manual  punchouts  and  provides  a  visual  notation  of 
the  actual  beginning  of  record. 

The  current  paper  tape  record  begins  with  the  time 
that  the  previous  tape  ended,  resulting  in  duplicate 
punchouts  between  each  collection  period.  The  pur- 
pose for  following  this  procedure  is  to  establish  a 
standard  method  for  removal  and  installation  of  the 
paper  tape  records.  The  computer  reduction  step  is 


designed  to  take  into  account  that  duplicate  punchout 
times  exist  between  each  tape  record. 

Two  exceptions  to  this  standard  method  may  occur. 
A  complete  loss  of  data,  due  to  gage  failure,  would 
require  the  following  tape  to  begin  with  the  present 
watch  time,  and  a  special  notation  of  the  data  loss 
would  be  made  (see  Loss  Data  Cards,  "Computer  Input 
Section").  A  time  loss  or  gain,  either  of  which  can 
occur  with  the  digital  gage,  will  also  require  a  special 
notation.  In  this  case,  the  beginning  punchout  of  the 
following  paper  tape  will  not  be  identical  with  the 
ending  punchout  of  the  previous  tape,  but  the  new 
record  would  begin  with  the  same  watch  time  as  the 
ending  watch  time  of  the  preceding  period.  The  special 
notation  in  the  form  of  a  numerical  error  code, 
described  under  the  "Paper  Tape  Data  Preparation" 
Section,  would  be  noted  on  the  tape  record  which  had 
the  punchout  time  loss  or  gain. 

With  the  established  method  of  tape  removal  and 
installation,  the  manual  punching  mechanism  is  used  to 
synchronize  each  paper  tape  collection  period  to 
standard  watch  time.  A  minimum  of  6  inches  of 
unpunched  tape  must  follow  each  collection  period. 
This  length  is  needed  during  the  translation  procedure. 
A  field  check  list  (table  1)  is  kept  of  the  paper  tape 
records  for  each  gage.  The  field  notes  supply  a 
complete  gage  history. 
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TABLE  l.-A  field  check  list  depicting  information  from  a  precipitation  gage  recorder 


FIELD  CHECK  LIST  FOR  F&P  RECORDERS 


INSTRUMENT  NO: 
TIMER  NO: 


Af  78 


NEWRC-l 

(8/67) 


LOCATION  NO: 


WATERSHED: 
LOCATION: 


DATE  TO  BE  SERVICED 

I'll1 
1  1 

DATE  ACTUALLY  SERVICED 

o3-'o-7Xi 

1  

■ 

SYNCHRONIZATION 

Correct  E.S.T. 
Tape  Time 
Time  Correction 
Tape  Day  No. 

TAPE  SUPPLY 

1  

1  

J/6  7Z 

Al7e¥   |  : 

i  

Supply  Tape  Replaced 
Tape  No. 

Days  Remaining  on  Tape 
Record  Removed 
Notation  on  Tape 

INSTRUMENT  READING 

//'&2-7/  ;           !  : 

1 

- 

,  y<?*-J  i  i 

Cl~l0-7»-(2>i 

 *fcS  

—  j  i  , 

Dial  Reading 
Tape  Reading 
Punchout  in  Line 
Punchout  Clean 
Sensitivity  Checked 
Range  Adjusted 
Zero  Adjusted 
Collector  Emptied 
Calibration  Made 

BATTERY  SUPPLY 

!   U  1        !  h 

J.  7 

yes 

yes 

,  1 

yes 

AJo 

i 
i 

o  i-'l-7X  >&3-/o-7f 

a/-//  7Z. 

ej-/o-7*-  | 

/f>-  /A- 7/ 

01-/C-72.  I 

i 

 ' 

Battery  Replaced 
Voltage  Across  Battery 
Voltage  Across  Motor 
ma  Drain  of  Timer 
ma  Drain  at  Punchout 

OPERATION 

/C-/J.-7/ 

4>S-/*-7J.  , 

I  , 

7.  / 

|  1 

!  

1  1 

i  

Evap.   Suppression  Oil 
Dashpot  Fluid  Added 
Contacts  Cleaned 
Material  in  Collector 
Mechanical  Malfunction 

SEASONAL  OPERATION 

o/-//-7JL 

£>4-/a-7z^ 

i  1 

i  1 

[ 

AJO 

AJo 

»3-o8-7J- 

os-/a-7i. 

fJo 

Ho 

SiO 

No  | 

 1 

Trace  (In  or  Out) 
Trace  Battery  Voltage 
Funnel  (In  or  Out) 
Antifreeze  Installed 

GAGE  SERVICED  BY 

,  1 

| 

O  iff 

a/-ih7*  **fi 

M.P 

Al./? 

'  

G)(£)    (Make  Additional  Comments  on  Back) 
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PAPER  TAPE  DATA  PREPARATION 


A  hand-operated  roller  is  used  to  rewind  the  paper 
tape  record  to  place  the  beginning  of  the  record  period 
on  the  outside  of  the  roll.  The  hollow  core  of  the 
rewound  tape  must  be  at  least  three-fourths  of  an  inch 
in  diameter  to  meet  the  requirements  of  the  translator 
supply  spool.  During  the  rewinding  of  the  tape,  a  visual 


scan  is  made  for  detectable  errors.  A  four-digit, 
error-coding  system  was  developed  for  use  in  identify- 
ing any  gage  malfunctions,  such  as  time  loss  or  gain. 
Each  paper  tape  record  is  coded  by  one  of  these  error 
codes  (App.  1).  The  rerolled  paper  tape  records  are 
labeled  (fig.  7)  as  to  State  watershed  number  (IWID), 


i:tT3£SE3D  1:0 
'  T-AST :  DA'f 

EIIOIKG:  DATaK^feS-TIKS 


/coo 


Figure  7. -A  paper  tape  record  identification  label. 
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gage  location  number,  trace  operation,  punchout  time 
interval,  beginning  and  ending  date,  time,  punched 
value,  and  error  code. 


The  information  from  the  tape  identification  labels 
is  transferred  to  a  "paper  tape  identification  form" 
(table  2).  Each  horizontal  line  represents  a  record 


TABLE  2. -Paper  tape  identification  form  (precipitation,  streamflow,  and  ground  water) 


PAPERTAPE  IDENTIFICATION  FORM  —  PRECIP,  RUNOFF,  AQUIFER 


STATE:  p/\.    IWID:  /g.ofe  WATERSHED:  H  AN  TAhJ  Co  C<. 


YEAR:  IS70 


ERROR 
CODE 


'23* 


0\CfO  W 

2£w 


54 


7,8,3 


3  g  u 


II  IZ  13  IV 


oi 


a  .7i« 


R7 


ISO 


3oZ\o 


03  O 


'97 


HR. 


MN. 


i|7 

6l\3\S 


TRANSLATOR  CODE 


ELE. 
REF. 


M  5ff  59  40  tl  iZ 


L° 


0  v>J 


55 


0  5 


R£ 
2 


So  V 


AT 


01 


3o5 


OWE 


os  z 


"MM. 


0 


2,5 


5  2 


3  - 


8  /|3  7 


2a 


2  5 


0/12/ 


sir 


Z2  we 


3.1 


05  2- 


1QJ 


/to 


0AIE 


DA 


Ho 


41/ 


06  / 


uiITC 


/J. 


3  20 


)  9 


z  o 


oo&z 


Slot 


ooo wes 


op 


e38 


06 


70 


5Z. 


70 


13 


©8 


370 


0  0 


97 


O  9  / 


Oo:6 


do\z 


ojo>i  £3 


5  a 


tj 


7  0 


9<  !s!o 


38 


5i 


52 


o/ 


70 


// 


70 


sjolo 

OiQO 


/,97 


oaoog 


51  4Q 


5i2 


70 


5  o 


5  2 


7132/ 


08  o|o 


!  I 


Key:  Examples 

Error  Code:  1000  Good  Tape 

Gage  Name:     WE38D  (Col.  5  thru  9) 

Punch:     05     5  minutes 


Type:  1  -  Preclp. ,  2  -  Runoff, 

3  «  Aquifer 
Trace:  1  -  On,  0  -  Off 
Translator  Codes: 


CHEK:  Improper  Tape  Control 
LIST:  1  -  List  Data,  0  -  No 
ITCH:  1  -  Half,  0  -  OK 
DATA:  1  -  Loss  Data,  0  -  OK 
ELE  REF:  Elev.  of  Aquifer 
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period  (paper  tape).  Cards  keypunched  from  the  form 
serve  as  program  controls  during  the  computer  reduc- 
tion of  the  paper  tape  record.  The  form  heading 
contains  space  for  the  State,  the  State  watershed 
location  number  (IWID),  watershed  name,  and  year  of 
data  collection.  Each  record  is  identified  as  follows: 


Card  Columns  Identification 

1-4  The  paper  tape  error  code. 

5-16  The  gage  location  number. 

17-18  The  punchout  time  interval. 

19  The  type  of  data. 

20  The  trace  indicator  code. 

21-32  Beginning  time-month,  day,  year, 

hour,  and  minutes,  respectively. 

33-36  The  first  punched-data  value. 

37-48  Ending  time-month,  day,  year,  hour, 

and  minute,  respectively. 

49-52  The  last  punched-data  value. 

53  Translation  error  codes. 

54-56  Computer  control  codes. 

57-62  Mean  sea  level  (ground  water  record- 

ings only). 


In  addition  to  the  above  information,  optional  daily 
snowfall  records  are  kept  of  days  with  precipitation 
other  than  rainfall.  This  record  is  used  to  identify  days 
of  solid  precipitation  on  the  computer  output  data. 
The  information  is  recorded  upon  a  snow  date  record 
form  (table  3).  This  form  contains  the  date  and  type  of 


precipitation  where  the  key  at  the  bottom  of  the  form 
explains  the  proper  coding  used  under  the  "Type  of 
Precipitation"  column. 

After  the  completion  of  rewinding,  scanning,  and 
identifying  the  paper  tape  records  and  the  recording  of 
appropriate  information  onto  forms,  the  tapes  are 
transported  and  stored  in  a  10  l/2-by-7  l/2-by-2-inch 
flat  polyethylene  freezer  box.  Each  box  can  hold 
1-year's  record  from  5 -minute-interval  gages. 

'   TABLE  3. -Snow  date  form  table 


Month  Day    Year   Type  Notes 


1 

2 

3 

4 

? 

(. 

7 

8 

0 

1 

2 

8 

7 

0 

N 

Example:  Rain  and  Snow  1/28/70 

0 

2 

0 

1 

7 

0 

S 

Snow  2/1/70 

0 

3 

1 

5 

7 

0 

M 

Mixed  Precipitation  3/15/70 

Type  Key:     S  =  Snow 

L  =  Sleet 

M  =  Mixed  Precipitation  (Rain,  Snow,  Sleet) 

N  =  Rain  and  Snow 

H  =  Hail 


PAPER-TAPE-TO-MAGNETIC-TAPE  TRANSLATION 


Digital  paper  tape  records  in  the  original  form 
cannot  be  used  as  direct  input  to  digital  computers 
without  special  interface  equipment.  Therefore,  the 
paper  tape  data  must  be  converted  to  a  suitable  media 
(usually  cards  or  magnetic  tape).  This  Center  employs 
the  paper-tape-to-magnetic-tape  converting  method. 

The  Digi-Data  Model  1730  translator  (fig.  8)  uses 
sensing  pins  to  read  punched  paper  tape.3  The  informa- 
tion from  the  binary  punched  holes  is  converted  to  an 
equivalent  four-digit  number  and  electronically  records 
this  reading  on  a  seven-channel,  556  BPI,  IBM-compat- 
ible magnetic  tape.  Each  four-digit  number  represents  a 
5-  or  30-minute-interval  gage  reading,  depending  on  the 


3 Digi-Data  Corporation.  Operation  manual  model  1730 
converter  (translator).  1970. 


data  being  translated.  The  paper  tape  readings  are 
converted  to  magnetic  tape  at  a  rate  of  18  paper  tape 
time  intervals  per  second.  The  records  are  automati- 
cally blocked  every  1 ,020  digits.  An  interrecord  gap  of 
three-fourths  of  an  inch  is  written  between  each  block. 
This  blocking,  combined  with  the  interrecord  gap, 
meets  the  requirements  of  most  computer  magnetic- 
tape  reading  devices. 

The  model  1730  contains  a  feature  for  entering 
fixed  data  settings  of  either  11  or  four  digits.  Eleven 
windows  are  available  to  enable  dialing  a  digit  into  each 
window.  The  individual  digits  can  range  from  0  to  9. 
Two  controls,  numbers  1 1  and  4,  provide  for  writing 
an  1 1-  or  four-digit  number  on  the  magnetic  tape. 

The  1 1  -digit  control  is  available  to  enter  the  label 
information  from  the  paper  tapes  being  translated.  This 
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Figure  8.— A  paper-tape-to-magnetic-tape  translator. 


method  of  entering  the  label  information  onto  the 
magnetic  tape  is  slow  and  provides  opportunity  for 
human  error.  Thus,  the  11 -digit  control  is  not  used 
with  this  translation  procedure,  since  the  label  informa- 
tion will  be  fed  into  the  computer  through  cards 
keypunched  from  the  "Paper  Tape  Identification 
Form"  (table  2). 

The  four-digit  control  has  a  twofold  purpose.  It  is 
used  to  enter  data  from  the  paper  tape  record  when 
misaligned  punched  readings  cause  the  translator  to 
stop.  The  value  of  the  punched  reading  missed  may  be 
entered  directly  on  the  magnetic  tape  in  the  last  four 
windows  of  the  11  windows.  Since  each  paper  tape 
record  represents  a  different  collection  period  and 
possibly  a  new  error  code,  every  paper  tape  record  is 
translated  as  a  separate  record.  To  enable  the  computer 
to  differentiate  between  paper  tapes,  a  numerical  code 
of  9999  is  written  on  the  magnetic  tape  through  the 
use  of  the  number  4  digit  control.  The  "four  9's"  code 
signals  the  end  of  a  paper  tape  record  and  is  applied 
after  each  paper  tape's  translation. 

The  original  design  of  the  model  1730  translator 
was  such  that  zero  gage  readings,  nonpunched  values, 
could  not  be  read.  This  feature  allowed  the  translator 
to  stop  translation  of  a  paper  tape  when  the  6-inch 
blank  span  at  the  end  of  the  paper  tape  was  en- 
countered. The  ability  to  translate  zero  readings  is 
necessary  when  precipitation  data  are  being  converted. 


The  construction  of  the  precipitation  gage  is  such 
that  after  a  collection  of  15.0  to  19.9  inches  of 
precipitation,  the  collector  part  must  be  emptied  and 
the  following  recording  period  begun  with  zero  gage 
readings.  These  zero  readings  will  be  present  on  the 
paper  tape  until  the  first  precipitation  event.  To 
provide  for  precipitation  data  translation,  the  model 
1730  was  modified  by  installation  of  a  "zero  suppres- 
sion" toggle  switch.  This  switch  resides  in  one  of  two 
positions,  normal  or  nonnormal.  The  normal  position 
does  not  allow  the  translator  to  read  zero  values,  thus 
stopping  translation  on  encounter  with  unpunched 
tape,  and  the  nonnormal  position  allows  translation  of 
zero  gage  values. 

The  procedure  for  paper-tape-to-magnetic-tape 
translation  can  vary  with  the  model  1730,  but  with 
ease  of  operation  and  speed  as  a  criteria,  the  following 
step-by-step  procedure  is  recommended: 

1 .  Load  the  magnetic  tape  on  a  supply  spool  that 
is  located  on  top  of  the  translator  and  hand 
threaded  through  the  proper  path  to  a  takeup 
spool.  A  tape-loading  diagram  is  supplied  by  the 
manufacturer.  The  tape  spools  handle  varied 
sizes  of  computer  magnetic  tape  up  to  10  1/2- 
inch  reels. 

2.  Set  Recorder  Mode  Switch  to  the  record  posi- 
tion and  turn  power  on.  The  function  of  the 
Recorder  Mode  Switch  is  to  specify  one  of  the 
following  three  options:  record,  rewind,  and 
fast  forward  wind. 

3.  Press  the  Record  Length  Counter  (RLC)  con- 
trol. This  control  energizes  the  magnetic  tape 
blocking  counter.  Every  1,020  digits  are 
blocked,  plus  an  interrecord  gap  on  the  mag- 
netic tape,  by  the  automatic  blocking  feature. 

4.  Press  Begin  of  Magnetic  Tape  (BOT)  control. 
The  magnetic  tape  advances  until  a  photocell 
sensing  light  encounters  an  aluminum  foil  re- 
flective mark  attached  to  the  tape  some  10  feet 
into  the  supply  spool.  The  mark  provides  an 
exact  starting  point  for  recording,  which  en- 
ables a  computer-tape-read  device  to  index  at 
the  proper  beginning  of  the  magnetic  tape  data. 

5.  Set  Zero  Suppression  Switch  to  the  normal 
position  if  reading  nonzero  paper  tape  data.  Set 
to  the  nonnormal  position  to  read  data  with 
beginning  zero  values. 

6.  Load  first  paper  tape  record  onto  the  trans- 
lator-read head.  The  beginning  of  record  on  the 
paper  tape,  as  identified  by  the  red  marker  line, 
is  aligned  so  as  to  be  the  first  punched  value 
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read  and  converted.  Proper  indexing  of  this  line 
assures  the  appropriate  beginning  clock  and 
paper  tape  time  synchronization. 

7.  Press  Start  Control  Button.  The  paper-tape- 
to-magnetic-tape  conversion  continues  until  the 
end  of  the  paper  tape  is  encountered.  The 
position  of  the  Zero  Suppression  Switch  is 
important  during  the  translation.  If  the  switch 
position  was  nonnormal  at  the  start  of  trans- 
lation, it  must  be  placed  at  the  normal  position 
as  soon  as  the  first  nonzero  punched  values 
appear  in  the  paper  tape.  If  the  translation 
stops  because  of  misaligned  paper  tape  punches, 
the  value  of  the  reading  prior  to  the  stop  point 
is  dialed  into  the  last  (most  right  hand)  four 
fixed-data  windows,  and  the  number  4  control 
is  pressed.  This  reading  is  converted  to  the 
magnetic  tape.  Repress  the  Start  Control. 
Translation  will  continue  until  the  blank  span 


at  end  of  paper  tape  automatically  stops  trans- 
lator. 

8.  Remove  the  paper  tape  from  the  translator-read 
head.  Dial  9999  code  into  the  last  four  fixed- 
data  windows  and  press  4  control.  This  code  is 
applied  after  the  translation  of  each  paper  tape. 
A  paper  tape  requires  from  4  to  6  minutes  for 
loading,  translation,  and  removal. 

9.  Place  two  end-of-file  marks,  by  means  of  an 
EOF  Control,  when  the  last  paper  tape  record 
for  the  run  has  been  translated,  and  the  four  9's 
code  has  been  applied.  The  end-of-file  marks 
are  recognized  by  the  computer  as  the  end  of 
all  data  on  the  magnetic  tape.  The  feature  is 
used  only  as  an  end  of  all  data. 

10.  Place  the  Record  Mode  Switch  in  the  Rewind 
position  after  completion  of  the  translation. 
The  magnetic  tape  rewinds  onto  the  supply 
spool  and  is  removed,  identified,  and  stored 
prior  to  computer  reduction. 


TRANSLATION  PROCEDURE  ERRORS 


The  translation  procedure  can  provide  some  oppor- 
tunities for  human  error.  A  translator  operator  may 
mistakenly  write  on  the  magnetic  tape  an  incorrect 
control  code  at  the  end  of  a  paper  tape.  The  operator, 
realizing  that  the  error  may  have  occurred,  can  take 
appropriate  steps  to  have  the  computer  correct  the 
error  by  use  of  the  proper  numerical  code  from  table  4. 

TABLE  4.  -  Translator  operator  errors 
(Coded  in  Column  53,  Paper  Tape  Identification  Form) 

Code  Type  of  Translator  Operator  Error 

0  or  Blank     No  errors  during  paper  tape  translation. 

1  The  four  9's,  or  EOF  end-of-paper-tape  control, 
left  off  magnetic  tape  after  the  paper  tape 
translation. 

2  Two  end-of-paper-tape  controls  of  four  9's  or 
EOFs  were  mistakenly  written  on  magnetic  tape. 

3  A  value  other  than  the  four  9's  or  EOF  control 
was  written  on  magnetic  tape. 

4  The  "Zero  Suppression"  switch  left  in  the  non- 
normal  position.  Paper  tape  continued  to  run, 
extra  zeros  on  magnetic  tape.  The  four  9's  or 
EOF  control  was  placed  at  end  of  the  zeros. 

5  The  same  problem  as  Code  4,  except  failed  to 
write  the  four  9's  control  on  magnetic  tape  at 
end  of  zeros. 


The  desired  code  is  entered  in  column  53  of  the 
Paper  Tape  Identification  Form  (table  2),  opposite  the 
paper  tape  on  which  the  error  occurred.  Any  code 
from  table  4,  other  than  zero  or  blank,  tells  the 
computer  to  use  a  supplied  ending  date  and  time  to 
determine  the  end  of  a  paper  tape.  If  the  instrument 
error  code  (App.  1)  for  the  paper  tape  is  1,000,  with 
good  data  tape  with  no  apparent  errors,  the  supplied 
ending  date  and  time  for  the  tape  would  be  the  same  as 
the  ending  date  and  time  shown  on  the  tape  label. 

When  the  instrument  error  code  specifies  a  time  gain 
or  loss,  a  manually  calculated  ending  date  and  time  for 
the  paper  tape  must  be  determined.  This  calculation  is 
performed  as  follows:  (a)  Count  the  number  of  punch- 
out  intervals  for  the  paper  tape  period,  which  will  give 
the  number  of  5-  or  30-minute  intervals  for  the  tape 
period,  (b)  Divide  the  count  into  days,  hours,  and 
minutes,  and  add  to  the  paper  tape's  beginning 
punchout  date  and  time,  which  establishes  the  actual 
tape  punchout  ending  date  and  time,  (c)  Keypunch  this 
time  on  a  data  card.  The  description  of  this  extra  card 
(Translator  Error  Card)  is  given  in  the  next  section. 
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COMPUTER  INPUT  DATA 


The  computer  input  consists  of  both  keypunch 
cards  and  the  translator-produced  magnetic  tape.  The 
cards  are  standard  80-column  punchcards.  The  input 
card  variables,  proper  coding  of  these  variables,  and  the 
type  of  format  are  described  under  each  card  layout. 
The  following  format  code  is  adhered  to: 


I   =  Integer  number,  right  justified  in  card  field. 

F  =  Real  number,  contains  a  decimal  point  loca- 
tion. Decimal  point  not  punched  on  the  card. 

A  =  Alphanumeric,  number  or  letter,  left  justified 
in  the  card  field. 

X  =  Blank  card  field,  not  used. 


CARD  LAYOUTS 


Variable 


Header  Card 

(One  Card-Required) 


NHEAD 


NSC 


Format  Code 


13 


Card 
Columns 


Variable 
NHEAD 


NSC 


2-4 


Description 

The  number  of  "page  heading  cards"  to 
be  read  and  written  as  headings  on  each 
computer  output  page.  A  maximum  of 
three  "page  heading  cards"  may  be  read 
and  written.  This  code  is  zero  if  no  page 
headings  are  to  be  written  on  the 
printer. 

The  number  of  "snow  date  cards"  to  be 
read  into  storage.  A  zero  coding  indi- 
cates no  "snow  date  cards"  to  be  read. 
A  maximum  of  999  cards  may  be  read. 
(See  snow  date  card  layout  below). 


Page  Heading  Cards 

(A  maximum  of  three  cards,  the  number  of  cards 
must  equal  to  NHEAD  on  the  "Header  Card").  (If 
NHEAD  equals  zero,  this  card  layout  is  not 
needed). 


Variable 


HCARD(x)1 


Format  Code 

Card 

Columns 


54A1 


1-54 


1The  "x"  notates  an  integer  from  1  through  3. 
Variable  Description 

HCARD         Output  Identification  (See  example  be- 
low).  Example:    "Basic  Precipitation 
Data  (Break  Point)"  for  HCARD  (1). 
"NEWRC,  University  Park,  Pa.",  for 
HCARD  (2). 

EC  " 

for  HCARD  (3). 

Note:  The  State,  watershed,  and  gage 
names  are  automatically  written  follow- 
ing the  page  headings.  These  variables 
receive  values  from  the  following  con- 
trol and  label  card  layouts. 
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Snow  Date  Card 

(Optional  cards,  use  by  precipitation  data  only,  one 
card  for  each  day  of  precipitation  other  than  snow). 

Note:  If  NSC  on  header  card  is  zero,  this  card  layout  is 
not  needed. 


Variable 

NSDTE(x,l)2 

NSDTE(x,2)2 

NSDTE(x,3)2 

STYPE(x)2 

Format  Code 

12 

12 

12 

Al 

Card 
Columns 

1-2 

3-4 

5-6 

7 

Numbers  in  parentheses  represents  indexes  of  computer  storage  tables.  The  "x"  denotes  a 
number  beginning  with  1  and  ascending  to  999.  This  provides  storage  for  a  possible  999  days  of 
snowfall  or  similar  precipitation. 


Variable 

NSDTE  (x,l) 
NSDTE  (x,2) 
NSDTE  (x,3) 
STYPE  (x) 


Description 

The  month. 
The  day. 

The  last  two  digits  of  the  year. 
The  type  of  precipitation,  see  "snow 
date"  form  (table   1)  for  proper 
coding. 


The  snow  date  cards  are  punched  directly  from  the 
"snow  date  record  form"  on  table  3. 

The  following  card  layouts  serve  as  program  control 
and  paper  tape  records  information.  The  main  portion 
of  the  card  variables  described  obtain  values  from  the 
"paper  tape  identification  form"  (table  2).  Cards  may 
be  keypunched  directly  from  this  form. 


Control  Card 

(One  card  for  each  different  gage's  paper  tape 
records  contained  on  the  translator  magnetic  tape) 
(Required). 


Variable 

STATE 

IWID 

WSH 

GAGE 

NPFG 

NTPT 

IEOF 

Format  Code 

A3 

14 

16A1 

3A4 

12 

12 

11 

Card 
Columns 

1-3 

4-7 

8-23 

24-35 

36-37 

38-39 

40 

IT 

KT 

OUT2 

NSKIP 

NOEOF 

KT1 

KT2 

12 

12 

A6 

11 

12 

12 

12 

4142 

4344 

45-50 

51 

52-53 

54-55 

56-57 

KT3 

KT4 

NDST 

NEWDAT 

IGREF 

12 

12 

11 

11 

14 

58-59 

60-61 

62 

63 

64-67 

e 

Description 

GAGE 

The  gage 

location  identification 

STATE 

IWID 

WSH 


The  abbreviated  State  name,  (example: 
Pennsylvania  =  Pa.). 

The  State  watershed  location  number 
(example:  Mahantango  Ck.,  Pa.  =  1601). 
The  watershed  name  (example:  Mahan- 
tango Ck.). 


ample:  Gage  =  RE38)  (Maximum  of  12 
characters). 

NPFG  The  number  of  paper  tape  records  for 

the  gage  (example:  NPFG  =  12,  paper 
tape  records  for  the  period  are  12). 
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NDST 


NEWDAT 


Variable  Description  Variable 

NTPT  The  total  number  of  paper  tape  records 

on  the  translator  magnetic  tape.  This 
variable  will  be  coded  the  same  on  each 
control  card  for  the  process. 

IEOF  If  9999  (four  9's)  is  written  on  trans- 

lator tape  after  each  paper  tape,  IEOF 
=  0.  If  end-of-file  marks  (EOF)  are 
written  after  each  paper  tape,  IEOF  =  1. 

IT  The  computer-read  unit  number  on 

which  the  translator  tape  will  be 
mounted  during  processing  (Example: 
IT  =  01). 

KT  The  computer-write  unit  number  on 

which  the  output  storage  magnetic  tape 
will  be  mounted.  (Example:  KT  =  03). 

OUT2  The  magnetic  tape  volume  name  on 

which  the  output  storage  data  will  be 
written  (Example:  OUT2  =  MAH333). 

NSKIP  When  coded  as   1,  this  variable  will 

initiate  a  readout  of  a  specified  number 
of  paper  tape  records  from  the  trans- 
lator tape.  The  paper  tapes  read  will  be 
ignored,  and  processing  will  commence 
on  the  paper  tape  immediately  follow- 
ing the  last  paper  readout.  The  number 
of  paper  tapes  to  be  read  out  will  be  IGREF 
coded  under  the  following  NOEOF  vari- 
able. If  no  paper  tape  records  are  to  be 
skipped,  NSKIP  will  be  coded  as  zero, 
and  processing  will  begin  on  the  first 
paper  tape. 

NOEOF  The  number  of  paper  tape  records  to  be 
skipped  on  readout  if  NSKIP  equals  1. 
NOEOF  equals  zero  if  NSKIP  equals 

zero. 

KT1,KT2,  These  variables  are  control  codes  used 
KT3,and  by  the  computer  in  writing  an  end-of- 
KT4  file  on  the  output  storage  magnetic  tape 

or  tapes  at  completion  of  processing. 
The  proper  coding  for  these  variables 
would  be  the  same  as  the  "KT"  vari- 
ables used  on  any  or  all  control  cards. 
(Example:  KT1  =  03,  because  one  mag- 
netic storage  tape  is  used  and  the  tape 
to  be  end-filed  is  KT  =  03).  A  maximum 


Description 

of  four  output  storage  tapes  may  be 
used  during  one  processing.  Each  would 
be  end-of-filed  at  end  of  process. 

This  code  is  used  in  special  cases  where 
a  dual-control,  stream  gaging  station 
exists,  one  control  for  measuring  low 
flows  and  another  for  measuring  high 
flows.  In  this  special  case,  NDST  would 
be  coded  as  zero  for  the  high-flow 
control  and  as  1  for  the  low-flow 
control.  When  runoff  data  is  from  a 
single  control  station,  NDST  would  be 
coded  as  zero.  The  NDST  code  is  used 
in  later  processing  to  identify  the  proper 
rating  table  or  curve  to  be  used  in 
computing  discharge. 

This  variable,  when  coded  1,  specifies 
that  a  different  type  of  hydrologjc  data 
will  follow  the  present  data.  A  new 
header  card  must  be  read  following  the 
last  paper  tape  record  of  this  control 
card.  NEWDAT  will  be  coded  zero  if 
same  type  of  data  is  to  follow. 

The  maximum  change  in  gage-recorded 
amount  that  may  occur  in  a  given  time 
interval,  or  maximum  gage  height 
allowed.  This  variable  is  necessary  be- 
cause of  the  possibility  of  erroneous 
punchouts  on  the  paper  tape  by  the 
digital-recording  gage.  If  any  gage- 
punched  reading  for  a  given  time  in- 
terval exceeds  the  value  of  this  variable, 
the  data  is  considered  invalid  and  is 
ignored  by  the  computer.  Default  values 
for  the  three  types  of  hydrologjc  data 
will  be  used  when  IGREF  equals  zero. 
These  defaults  are  as  follows:  (a)  a 
maximum  of  1-inch  change  in  precipita- 
tion amount  in  a  5-minute  interval,  (b)  a 
maximum  of  30.00-foot  gage  depth  for 
any  runoff  amount,  (c)  a  maximum  of 
60.00-foot  gage  depth  for  any  ground 
water  level. 
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Label  Card 

(One  card  for  each  paper  tape  record  contained  on 
the  translator  tape)  (Required). 

Note:  The  card  columns  of  this  card  are  identical  to 
the  columns  of  the  "paper  tape  identification 
form." 


Variable 

NCOD 

GAG 

NPIL 

NTYPE 

NTRACE 

Format 

14 

3A4 

12 

11 

12 

Card 
Columns 

1-4 

5-16 

17-18 

19 

20 

MT1 

ND1 

NY11 

NY1 

NH1 

12 

12 

12 

12 

12 

21-22 

23-24 

25-26 

27-28 

29-30 

NMI 

ARD1 

MT2 

ND2 

NY22 

12 

FH.2 

12 

12 

12 

31-32 

33-36 

37-38 

39-40 

4142 

NY2 

NH2 

NM2 

ARD2 

ICHECK 

12 

12 

12 

F4.2 

11 

43-44 

4546 

47-48 

49-52 

53 

NLIST 

1TCHG 

LDATA 

ELEREF 

11 

11 

11 

F6.2 

54 

55 

56 

57-62 

Description 

If  the  rain-trace  sensor  on  a  rain  gage  is 
in  operation  for  the  paper  tape, 
NTRACE  =  1 ,  if  sensor  out  of  opera- 
tion, NTRACE  =  0.  If  processing  runoff 
or  ground  water  data,  NTRACE  =  0. 

The  paper  tape  beginning  month. 

The  paper  tape  beginning  day. 

The  first  two  digits  of  the  beginning 
year  (Example:  1970,  NY1 1  =  19). 

The  last  two  digits  of  the  beginning  year 
(Example:  1970,  NY  1  =70). 

The  beginning  hour  (military  watch 
time,  24  for  midnight). 


Variable 

NCOD 

GAG 

NPIL 
NTYPE 


Description 

The  gage  malfunction  error  code  for  the 
paper  tape  record.  (Example:  NCOD 
1,000  is  good  data)  (See  Error  Codes, 
App.  1). 

The  gage  location  identification,  this 
variable  is  coded  the  same  as  "GAGE" 
on  the  control  card  for  this  gage  (Ex- 
ample: RE38  __  )• 

The  paper  tape  punchout  time  interval 
(Example:  05  for  a  5-minute  punch 
interval). 

The  type  of  data  being  processed, 
NTYPE  will  equal  1  for  precipitation,  2 
for  streamflow,  and  3  for  ground  water 
data. 


Variable 


NTRACE 


MT1 
ND1 
NY11 

NY1 

NH1 
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Variable  Description 

NM1  The  beginning  minutes.  (This  variable 

should  be  a  multiple  of  5  or  30). 
(Example:  If  NM1  =  15  for  15  minutes 
after  the  hour,  the  paper  tape  time  cycle 
is  every  5  minutes). 

ARD1  The    beginning    punchout  reading 

(Example:  000.0  =  zero  precipitation, 
01.00=  1  foot  of  stream  depth,  etc.). 
(Decimal  point  not  punched;  therefore, 
data  must  be  right  justified  about  the 
decimal  point). 

MT2  The  paper  tape  ending  month. 

ND2  The  ending  day. 

NY22  The  first  two  digits  of  the  ending  year. 

NY2  The  last  two  digits  of  the  ending  year. 

NH2  The  ending  hour  (military  watch  time). 

NM2  The  ending  minutes  (a  multiple  of  5  or 

30). 

ARD2  The  ending  punchout  reading  (decimal 

point  not  punched). 

ICHECK  The  coding  of  this  variable  pertains  to 
the  end  of  paper  tape  control  of  four 
9's.  The  proper  coding  is  found  under 
the  "translator  operator  errors"  in  table 
4  and  Column  53  of  the  paper  tape 
identification  for  table  2.  (See  "Trans- 
lator Error  Card"  below). 

NLIST  Used  on  runoff  or  ground  water  data 

only.  If  all  output  records  are  to  be 
listed  on  a  printer,  NLIST  will  equal  1. 
If  only  the  page  headings,  the  first  and 
last  record  for  each  paper  tape  period 
and  a  summary  for  each  paper  tape  are 
to  be  printed  on  output,  NLIST  will 
equal  zero.  The  precipitation  data  is 
automatically  listed,  and  in  this  case, 
NLIST  would  be  coded  as  zero. 


Variable  Description 

ITCHG  If  a  precipitation  trace  sensor  malfunc- 

tion under  "NCOD"  above  occurred 
during  the  record  period,  and  if  the 
trace  sensor  is  to  be  ignored,  ITCHG 
would  be  coded  as  1.  ITCHG  would 
equal  zero  in  all  other  cases. 

LDATA  This  variable  describes  the  number  of 
comment  cards  (loss  data  cards)  that  are 
to  be  read  immediately  following  this 
label  card  or  a  translator  error  card,  if 
present  (LDATA  may  have  a  value  of 
zero  through  9).  If  LDATA  is  equal  to 
zero,  no  loss  data  cards  will  be  read. 

ELEREF        Used  by  ground  water  well  data  only. 

This  variable  is  coded  with  the  value  of 
mean  sea  level  elevation  when  the  top  of 
a  ground  water  well  is  reference  to 
elevation.  The  output  data  would  be 
values  of  elevation  in  place  of  gage-read- 
ing depths.  If  the  well  is  not  referenced 
to  mean  sea  level  elevation,  thevvariable 
ELEREF  would  be  coded  as  zero,  and 
the  output  would  be  gage-reading  water 
depths  in  feet.  The  maximum  elevation 
of  a  well  at  ground  level  is  9999.99  feet 
(Decimal  point  not  punched). 


The  following  cards  can  be  inserted  in  the  input 
data  card  deck  immediately  following  the  paper  tape 
label  card.  The  first,  a  "Translator  Error  Card,"  will  be 
needed  in  the  event  that  a  translator  operator's  error 
occurred  at  the  time  of  translation,  and  the  gage 
malfunction  error  code  (NCOD)  is  for  a  time  gain  or 
loss.  The  second,  "Loss  Data  Cards,"  can  be  used  to 
note  a  period  of  data  loss  between  or  during  paper  tape 
collection  periods. 


lb 


Translator  Error  Card 

(Optional  card  after  a  label  card) 


Note:  If  "ICHECK,"  under  Label  Card  above  does  not 
equal  zero  for  the  paper  tape  record,  this  card 
must  be  present  in  the  input  deck.  The  format 
of  this  card  coincides  with  the  format  of  the 
"Label  Card"  above. 


Variable 

BLANK 

IMO 

IDA 

IY 

IYR 

IHR 

IMN 

Format 

36X 

12 

12 

12 

12 

12 

12 

Card 
Columns 

1-36 

37-38 

39-40 

41-42 

43-44 

45-46 

4748 

ARED 


F4.2 


49-52 


Variable  Description 

BLANK  36  blanks  are  not  used.  These  blanks 
orient  the  card  variables  to  coincide 
with  the  "Label  Card"  format. 

IMO  The  computed-paper-tape-record  ending 

month  (See  "Translation  Procedure 
Errors"  Section). 

IDA  The  computed-paper-tape-record  ending 

day. 

IY  The  first  two  digits  of  the  computed- 

tape  ending  year  (Example:  1970, 
IY=  19). 


Variable  Description 

IYR  The  last  two  digits  of  the  computed- 

tape  ending  year  (Example:  1970, 
IYR  =  70). 

IHR  The  tape  ending  hour  (military  time). 

IMN  The  tape  ending  minutes  (IMN  must  be 

a  multiple  of  5  or  30). 

ARED  The  ending  punch-out  value  (Decimal 

not  punched). 


Loss  Data  Cards 

(Optional  cards  after  the  "Translator  Error 
Card"  or  "Label  Card").  These  cards  are  used 
to  note  a  loss  of  data  between  two  paper  tapes. 

Note:  A  maximum  of  nine  cards  allowable. 
Variable  ACARD 


Format 


80A1 


Card 
Columns 


1-80 


Variable  Description 

ACARD  Comments  for  output  on  the  data  list- 
ing. The  "LDATA"  code  under  the  label 
card  layout  must  be  greater  than  zero  to 
read  "Loss  Data  Cards."  The  number  of 


Variable  Description 

loss  data  cards  read  and  printed  will 
equal  the  LDATA  code  from  the  label 
card  of  the  preceding  paper  tape. 
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ORDER  OF  INPUT 


The  Input  Data  Cards  are  stacked  in  the  following 
order: 

1 .  Header  Card  (one  card,  required). 

2.  Page-Heading  Cards  (maximum  of  three  cards, 
optional). 

3.  Snow  Date  Cards  (maximum  of  999  cards, 
optional). 

4.  Control  Card  (one  card,  required). 

5.  Label  Card  (one  card,  required). 

6.  Translator  Error  Card  (one  card,  optional). 

7.  Loss   Data  Card  (maximum  of  nine  cards, 
optional). 

8.  Repeat  steps  5  through  7  for  each  paper  tape 
record  for  a  gage. 

9.  Repeat  steps  4  through  8  for  each  gage's  data. 
10.  Repeat  steps  1  through  9  for  each  type  of  data 

on  the  translator  magnetic  tape. 

(A  typical  stacking  order  is  illustrated  in  figure  9.) 

The  translator  magnetic  tape  contains  the  basic 
input  data.  The  physical  makeup  of  this  tape  is  a  long, 
continuous  string  of  digits,  each  four  digits  represent- 
ing a  5-  or  30-minute-interval  data  entry.  An  imaginary 
decimal  point  is  located  between  the  third  and  fourth 
digits  for  precipitation  data  and  between  the  second 
and  third  digits  for  runoff  and  ground  water  data.  The 
presence  of  a  number  8  in  the  first  digit  of  a 
precipitation  reading  signals  a  trace  sensor  indicator. 
The  occasional  appearance  of  four  9's  represents  an 
end  of  a  paper  tape  record.  Following  every  1 ,020 


Figure  9. -A  typical  input-data-cards  stacking  order. 

digits,  a  blank  space  and  unprinted  line  indicate  an 
interrecord  gap.  A  pictorial  view  of  a  section  of  data 
listed  from  a  translator  magnetic  tape  is  illustrated  in 
figure  10.  A  "box"  encloses  a  group  of  four  9's  to  aid 
recognition. 

The  combination  of  input  cards  and  translator 
magnetic  tape  completes  the  input  data  requirement  of 
the  processing  computer  program. 
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Figure  10. -A  pictorial  view  of  a  section  of  data  listed  from  a  translator  magnetic  tape. 
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COMPUTER  SOURCE  PROGRAM 


The  computer  program  developed  to  reduce  the 
digital  hydrologic  data  was  written  in  Fortran  IV 
language  for  use  on  an  IBM  360/67  computer  system.4 
This  source  program  is  comprised  of  a  main  program 
and  nine  subroutine  subprograms  to  aid  in  program 
"debugging"  and  because  of  their  ease  in  following  the 
program's  flow  direction. 

A  major  function  of  the  program  is  to  edit  the  data 
for  extraneous  gage  readings  from  the  translator 
magnetic  tape  and  to  retain  only  those  gage  readings 
that  are  needed  to  reproduce  the  hydrologic  events  for 
a  record  period.  These  values  with  appropriate  date  and 
time,  gage  malfunction  error  code,  and  other  identi- 
fying information  are  listed  on  a  printer  and  written 
on  magnetic  tape  storage  as  output.  A  complete  errors 
edit  is  performed  using  information  from  the  Trans- 
lator Operator's  Error  or  Loss  Data  Cards. 

The  appropriate  action  is  taken  by  the  program  to 
identify  these  errors  by  printed  messages  on  the  output 
media.  The  program  does  not  attempt  corrections  of 
gage  malfunction  errors.  The  error  codes  provide 
sufficient  information  for  a  later  step  in  data  correc- 
tion and  analysis.  The  program  was  written  to  enable 
the  reduction  of  all  three  types  of  digital  hydrologic 
data:  streamflow,  precipitation,  and  ground  water 
wells. 


A  normal  method  would  be  to  reduce  each  type  of 
data  separately,  avoiding  a  mixture  of  the  three  types 
of  data  on  a  single  magnetic  storage  tape.5  One  type  of 
data  per  storage  tape  provides  a  less  complicated  data 
retrieval  at  a  later  date.  A  source  program  and 
input-data  loading  order  is  illustrated  in  figure  11.  The 
//  and  /*  cards  are  computer  residence  cards,  which  can 
vary  from  one  computational  center  to  another.  A 
listing  of  the  program  is  given  in  Appendix  II. 


Figure  11.— A  diagram  of  the  computer  source  program 
and  input-data  loading  order. 


TRANSLATOR  MALFUNCTIONS  AND  THEIR  COMPUTER  CORRECTIONS 


The  paper-tape-to-magnetic-tape  translator  places 
data  on  the  magnetic  tape  in  a  binary-coded  decimal 
form.  The  signal  strength  of  each  digit  must  lie  within 
the  acceptable  signal  strength  range  of  the  computer 
device  used  to  read  the  magnetic  tape.  It  has  been 
found  with  the  Model  1730  translator  that  the  signal 
strength  of  an  individual  digit  occasionally  may  fall 
outside  this  acceptable  range.  Consequently,  an  invalid 
character  is  usually  substituted  for  the  correct  0-to-9 
digit. 

This  invalid  character  will  cause  the  program  to  stop 
execution,  and  the  data  on  the  magnetic  tape  beyond 
this  point  becomes  inaccessible  in  the  current  job  step. 
This  character  results  in  an  error  code  IHC215I  on  the 
IBM  360/67  system.  It  can  be  bypassed  by  the  use  of 


4IBM  Corporation.  IBM  system/360  operating  system, 
Fortran  IV  (G)  Programmer's  Guide.  File  No.  S360-25,  Form 
No.C28-6639-l.  1966. 


the  ERRSET  subroutine.  An  example  of  the  invalid 
character  might  be  01 '3  instead  of  0123.  The  ERRSET 
statement  simply  informs  the  computer  to  take  the 
invalid  character  (')  and  to  convert  it  to  a  valid  digit 
(1).  This  results  in  a  usable  four-digit  number  (0113). 
The  one  digit  is  obtained  from  the  last  argument  in  the 
CALL  ERRSET  statement.  Likewise,  the  second  argu- 
ment (256)  allows  for  256  of  the  IHC215I  errors 
before  program  execution  is  completely  terminated. 
The  values  of  these  two  arguments  is  arbitrary  within 
certain  limits  (See  Ref.  No.  3). 

A  second  translator  malfunction  that  can  occur  with 
the  model  1730,  although  less  frequently,  is  a  perma- 
nent input  error  (IBM-IHC218I).  This  error  is  also 
produced  from  a  weak  signal  on  the  translator  mag- 


5Shanholtz,  V.  O.,  and  Burford,  J.  B.  Computer  systems  for 
reduction  and  analysis  of  hydrologic  data.  U.S.  Dept.  Agr., 
Agr.  Res.  Serv.,  ARS  41-132.  1967. 
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netic  tape.  When  the  computer  attempts  to  read  a 
record  and  is  unable  to  recognize  the  value  as  valid,  the 
ERR  =  argument  of  the  input  data  READ  statement 
(main  program,  App.  II)  instructs  the  computer  to 
reread  the  record  in  error.  The  record  is  reread 
numerous  times  in  an  attempt  to  receive  a  valid  value. 
If  a  recognizable  value  is  obtained,  the  program 
execution  continues.  If  not,  execution  fails,  and  the 
processing  stops. 


Following  the  use  of  either  of  these  correction 
routines,  the  computer  reduction  program  is  designed 
to  ignore  the  corrected  record  if  its  value  is  above  or 
below  a  set  amount  when  compared  with  the  preceding 
and  following  record. 

However,  the  occurrence  of  these  malfunctions  is 
rare.  The  use  of  very  high-quality  magnetic  tape  in  the 
translation  process  can  help  to  reduce  the  possibility  of 
a  translator  malfunction. 


COMPUTER  OUTPUT  DATA 


The  output  data  from  the  computer  reduction  step 
can  be  written  via  a  printer  and/or  placed  on  perma- 
nent magnetic  storage  tape. 

An  example  of  the  printer  output  is  given  in  figure 
12  and  illustrates  one  paper  tape  record  period  from 
Rain  gage  RR-44,  Mahantango  Creek  Watershed.  The 
collection  period  began  9/9/69  at  1020  with  zero 
rainfall  and  ended  10/7/69  at  1100  with  2.6  inches  of 
accumulated  rainfall.  During  this  period,  the  rain  trace 
indicator  was  in  operation  and  is  noted  on  the  records 
with  a  "T"  as  trace  rainfall.  The  "type"  column  is 
blank,  because  only  rainfall  was  measured,  not  snowfall 
or  other  similar  precipitation. 

The  blank  line  spaces  across  the  listing  are  rainfall 
event  separators.  These  represent  an  hour  or  more 
between  the  end  of  one  rain  and  the  beginning  of 
another.  The  footnotes  describe  the  computer  versus 
the  watch-time  ending  of  the  paper  tape,  the  number 
of  basic  records  written  on  magnetic  tape,  the  number 
of  records  read  and  analyzed,  and  the  type  of  rain  gage 
malfunction  error  for  the  collection  period. 

The  streamflow  output  listing  (fig.  13)  depicts  a 
recording  period  of  6  days  from  stream  gage  WE38U. 
In  this  example,  the  "list"  option,  described  as 
"NLIST"  in  the  "Computer  Input  Data"  section,  is  in 
effect.  The  output  is  similar  to  the  precipitation  listing 
in  Gage  No.,  Date,  Time,  and  Code  columns.  The 
"Time  Intr"  column  represents  the  number  of  5- 
minute  intervals  during  which  the  stream  level  re- 
mained at  the  corresponding  gage  depth  under  the 
"Depth  (FT)"  column.  The  presence  of  zero  in  the 
"Discharge  Table  No"  column  indicates  that  the  data 
record  is  from  a  large  control  of  a  "dual-control  gaging 
station."  The  footnotes  follow  the  same  format  as  that 
in  the  precipitation  data  listing. 


The  printed  output  from  ground  water  well  data  as 
shown  (fig.  14)  is  generally  the  same  as  output  from 
streamflow.  This  output  is  also  a  result  of  the  "List" 
option  effect.  The  "NREFE"  column  indicates,  by  the 
presence  of  a  blank,  that  gage  depths  are  actual 
instrument  readings  not  referenced  to  M.S.L.  elevation. 
Every  2400-hour  reading  for  the  entire  record  period  is 
listed  and  written  on  the  magnetic  tape  for  both  the 
ground  water  and  the  streamflow  data. 

When  the  list  option  (NLIST)  is  coded  as  zero,  the 
printed  output  for  each  ground  water  well  or 'stream- 
flow  paper  tape  will  contain  only  the  page  and  column 
headings,  the  first  and  last  record  written  on  magnetic 
tape  storage,  and  footnote  information.  This  option  of 
zero  or  no  listing  allows  the  summary  of  the  paper  tape 
information  without  printing  all  basic  output  records, 
thus  decreasing  the  initial  processing  time.  A  listing  of 
the  basic  output  records  may  be  obtained  from  the 
magnetic  storage  at  some  later  date. 

The  magnetic  storage  tapes  contain  only  the  basic 
output  records.  These  records  are  written  in  an 
unformated  form,  or  format-free  output.  Each  integer 
or  real  variable  of  a  record  requires  four  bytes  of 
magnetic  storage,  and  every  character  of  a  literal 
character  string  requires  one  byte,  plus  four  extra 
computer-required  bytes  for  each  record  written.  The 
storage  requirements  for  each  precipitation  record, 
streamflow,  and  ground  water  well  are  the  same:  56 
bytes.  The  magnetic  tape  is  written  in  blocked  records 
of  100  records  per  block,  and  the  variable  block  size 
(VBS)  needed  to  store  the  different  length  records  is 
6,004  bytes,  including  four  extra  bytes  per  block. 

The  Fortran  IV  naming  convention  must  be  fol- 
lowed when  reading  or  writing  unformated  records  on 
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PRECIPITATICNIBREAK   POINT   BASIC  DATA) 
NEWRC, UNIVERSITY   PARK, PA. 
STATE-PA.  STATE    I ND .  NO. =  1600 


HATERSHE 0=   MAH ANT  ANGn  CR.  GAGF=RR44 


GAGE 

MONTH 

CAY 

YEAR 

TIME 

TR  ACE 

PRECIP  DEPTH 

TYPE  PRECIP 

COOE 

NO. 

HP 

M  I  N 

FDR  INTERVAL 

ACC. 

(INCHES) 

( INCHES) 

TAPF 

BEGINNING 

DATE, 

TIME, 

RE ADING= 

9/  9/1969  1020 

0.0 

RR44 

9 

17 

1 969 

16 

35 

T 

0.0 

0.0 

1000 

RR44 

9 

17 

1969 

16 

40 

0.2 

0.2 

1000 

RR44 

9 

1 7 

1969 

17 

10 

0.  1 

0.3 

1000 

RR44 

9 

.17 

1969 

17 

25 

0.1 

0.4 

1000 

RP44 

9 

1  7 

1969 

17 

45 

0.  1 

0.5 

1000 

RR44 

9 

17 

1969 

1  7 

50 

0.  1 

0.6 

1000 

RR44 

9 

17 

1969 

22 

45 

T 

0.0 

0.6 

1000 

9 

1 7 

1969 

23 

0 

0.1 

0.7 

1000 

RR44 

9 

1  7 

1969 

23 

50 

0.  1 

0.8 

1000 

RR44 

9 

25 

1969 

13 

55 

0.  1 

0.9 

1000 

RR44 

9 

27 

1969 

2 1 

40 

T 

0.0 

0.9 

1000 

RR44 

9 

27 

1969 

22 

3  5 

0.1 

1.0 

1000 

RR44 

9 

28 

1969 

7 

20 

T 

0.0 

1  .0 

1000 

RR44 

9 

2  8 

1  969 

7 

35 

0.  1 

1.1 

1000 

9R44 

1  0 

2 

1969 

9 

55 

T 

0.  0 

1 . 1 

1000 

RP44 

10 

2 

1969 

10 

25 

0.1 

1.2 

1000 

RR44 

10 

2 

1969 

11 

5 

0.  1 

1.3 

1000 

RR44 

10 

2 

1  969 

12 

5 

0.  1 

1.4 

1000 

RR44 

10 

2 

1969 

13 

15 

T 

0.0 

1.4 

1000 

RR44 

10 

2 

1969 

13 

35 

0.1 

1.5 

1000 

RR44 

1  0 

2 

1969 

14 

40 

T 

0.0 

1.5 

1000 

RR44 

10 

2 

1969 

14 

45 

0.  1 

1.6 

1000 

RR44 

10 

2 

1  969 

15 

40 

0.  1 

1.7 

1000 

RR44 

10 

2 

1969 

16 

0 

0.  1 

1.8 

1000 

RR44 

10 

2 

1969 

17 

10 

T 

0.0 

1  .  8 

1000 

RR44 

10 

2 

1969 

17 

2  5 

0.  1 

1.9 

1000 

RR44 

10 

2 

1969 

18 

3  0 

0.  1 

2.0 

1000 

RR44 

10 

2 

1969 

19 

0 

0.  1 

2.1 

100  0 

RR44 

10 

2 

1969 

19 

55 

0.1 

2.2 

1000 

RR44 

10 

2 

1969 

20 

55 

0.  1 

2.3 

1000 

RR44 

10 

2 

1969 

23 

10 

T 

0.0 

2.3 

1000 

RR44 

10 

3 

1969 

0 

10 

0.1 

2.4 

1000 

PR44 

10 

3 

1969 

1 

20 

T 

0.0 

2.4 

1000 

RR44 

10 

3 

1969 

1 

25 

0.  1 

2.5 

1000 

RR44 

10 

3 

1969 

2 

10 

0.1 

2.6 

1000 

END  OF   TAPE   NO. 31, FOR  GAGE-RR44       END  OF  TAPE  ON     LAB  EL=  1 0/   7/1969   TIME  =  ll   0  P£ADING=  2.6 

END  OF   TAPE  COMPUTED=10/   7/1969  TIME=ll    0  READING=  2.6 

THE   NO.    OF    RECORDS  WR I TT EN=  44 

THE   TOTAL   NO.   OF   PUNCHES   FOP      PAPER    TAPF  WAS  COMPUTED  TO  BE=   8073  PUNCH   INTERVAL  =  5 

DATA  FOR   PAPER  TAPE  WRITTEN  ON  TAPE  NO . VA 1 3 1 4, FOR   STORAGE —   THE    ERROR  CODE  FOR  TAPE=1000 
ERROR  CODE  flOOO)  GOOD  DATA  TAPE  NO  APPARENT  ERRORS 

Figure  12. -An  example  of  printer  output  from  one  precipitation  record. 
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SIRE  A  M  FLOW 

(BREAK 

POINT 

BASIC  DATA) 

NEWRC 

t   UNIVERSITY    PARK  i  PA. 

STATE 

-PA. 

STATE 

IND. 

=  1606 

WATER  SHE  D  = 

MAHANTANGQ  CK. 

GAGE=hE38U 

GAGE 

MONTH 

DAY 

YEAR 

T I  ME 

CEPTH 

COCE 

NO. 

HR 

M I  N 

(FT) 

fc'  EG  IN  OF  TAPE  LABEL*  ta£3EL 

I  0 

1970 

1 2 

50 

0.23 

1000 

FIRST  RE COR  C  CN  MAG.=  hE3EU 

1 0 

1970 

1 2 

50 

12  0 

0.23 

loco 

WE38U 

I  o 

1970 

1 2 

50 

1  7  fi 
l  C  U 

0.23 

1000 

WE  38U 

i  0 

1970 

\  3 

50 

0.22 

1000 

WE38U 

1  0 

19  70 

1  5 

50 

46  0 

0.21 

1000 

WE38U 

1  0 

197  0 

19 

40 

0.20 

10C0 

ME38U 

10 

1970 

24 

0 

20  3  0 

0.20 

10C0 

WE3EU 

10 

7 

1970 

16 

55 

8  5  0 

0.19 

loco 

WE  3  6U 

1  0 

•j 

1970 

24 

0 

12  3  0 

0  -19 

1CC0 

WE  38U 

10 

8 

1970 

10 

15 

0.20 

1000 

WE3EU 

I  0 

g 

1970 

14 

4  5 

ill  n 

0.  19 

1CC0 

WE3EU 

1 0 

g 

1970 

24 

0 

117  0 

0.19 

1000 

WE  3  6U 

10 

9 

1970 

9 

45 

5  3  0 

0.20 

1000 

WE38U 

10 

5 

1970 

14 

10 

118  0 

0.19 

1000 

WE  3  6 U 

10 

9 

1970 

24 

0 

7  0  0 

0.19 

10CO 

WE  3 8U 

1C 

1C 

1970 

5 

50 

204  0 

0.20 

1000 

WE  38U 

10 

1C 

1970 

22 

50 

it  u 

0.19 

1000 

wE3eu 

10 

1C 

1970 

24 

0 

J7  n 
C  i  U 

0.19 

1000 

wE3eu 

10 

11 

1970 

2 

15 

261  0 

0.20 

10C0 

we  3  eu 

10 

11 

1970 

24 

0 

20  3  0 

0.20 

10  CO 

LAST   RECORD  CN  MAG  =  WE3eU 

10 

11 

1970 

24 

0 

1  0 

0.20 

1000 

END  OF   TAPE   NO.    1, FCR  GAGE-KE38L 

END 

OF  TAPE 

ON  LAd E L  = 

10/12/1970  TIME=17 

0  READING 

=  0.19 

ENO 

OF  TAPE 

COMPUTEC= 

10/12/1970  TIME=17 

0  READING 

»     0.19 _ 



THE 

NO.   OF  RECCRCS 

WRITTEN'  18 

TOTAL   RECORDS   WRITTEN  CN 

MAG. 

tape  Since  beginmnc 

1242 

TFF  TCTAL 

NO. 

OF   PUNCHES  FCR 

PAPER 

TAPE  WAS  CCMPUTED  TO 

8E=  1779 

PUNCH  INTERVAL"  5 

DATA  FOR  PAPER   TAP E  WR ITTEN  ON 

T  A  P  E 

NO.  DUMMY 

"Tfcp" 

STORAGE--  THE  ERROR  CODE  FCR  TAP E * 1 000 

ERROR  COCEM1CCO) 

GOOD 

OATA 

TAPE-NC 

apparent 

ERRORS 

■r.r--  

Figure  13. -An  example  of  printer  output  for  one  streamflow  paper  tape  record. 
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AQUIFER  DATA (BREAK  POINT 

DATA) 

NEWRC,   UNIVERSITY  PARK.P/ 

• 

STATE-PA. 

STATE 

IND. 

NC.M606 

WATER  SHEC  = 

MAHANT  ANGO  CK. 

GA GE  =  A03  i— 30 

PI  FVATTDK)  PPFFCPNirP- 

C.00     BEGIN  GAGE 

HEIGhT= 

2A.00 

GAGE  PC 

0  AY 

YEAR 

TI^E 

NPEFE 

GAGE  CEPH. 

CODE 

BEGIN  CF  TAPE  LABEL= 

AD37-3e  4 

3 

197C 

1430 

0 

24  .00 

1000 

FIRST  RECCRC  CN  M AG .= 

AC37-38  4 

3 

1970 

1430 

0 

24  .03 



1000 

AC37-38  A 

3 

1970 

15  0 

0 

_  24 .03  

1000 

AC37-38  A 

3 

1970 

1  530 

0 

24  .0  3 

1000 

AC37-38  4 

3 

197C 

16  0 

0 

24  .03 

1000 

AC  3 7-3 8   ~  4 

3 

1970 

1630 

0 

24.0  3 

1000 

AC37-38  A 

3 

197C 

17  0 

0 

24.03 

1000 

AC37-38  4 

3 

1970 

1730 

0 

24  .0  3 

1000 

AC37-38  A 

3 

1970 

18  0 

0 

24.02 

1000 

AC37-38  4 

3 

197C 

1  830 

0 

24  .01 

1000 

AC37-33  4 

3 

1970 

19  0 

0 

2  3  .98 

1000 

AC  37-3 8  4 

3 

1970 

1930 

0 

23  .97 

1000 

A037-38  A 

3 

1970 

20  0 

0 

2  3  .96 

1000 

AD37-38  4 

3 

1970 

2030 

"  0 

23  .93 

1000 

AC37-38  4 

3 

1970 

21  0 

0 

23  .92 

1000 

AC37-38  A 

3 

1970 

2130 

0 

23  .9  1 

1000 

AC37-38  4 

3 

1970 

22  0 

0 

23  .90 

1000 

AC37-38  4 

3 

1970" 

2230 

0 

23  .88 

1000 

AC37-38  A 

3 

1970 

23  0 

0 

23  .88 

1000 

AC37-38  4 

3 

1970 

2330 

0 

23  .88 

1000 

AC37-38  A 

3 

1  97C 

24  0 

0 

23.88 

1000 

AC37-38  4 

A 

197C 

030 

0 

23.88 

1000 

A  C  3  7—  38  4 

4 

1  97  0  

1  0 

0 

23.86 

1000 

~AC 37^3~8"  "          "  4~ 

4 

i  Q7/1 

1  V  f  L 

"  130 

0 

23  .88 

1000 

AC37-33  a 

4 

1970 

2  0 

0 

23  .88 

1000 

AC37-38  4 

4 

1970 

230 

0 

23.88 

1000 

AC37-38  A 

4 

1970 

3  0 

0 

23.88 

1000 

AC37-38  A 

4 

1970 

330 

0 

23.88 

1000 

AC37-38  a 

4 

1970 

4  0 

0 

23.88 

1000 

AC3  7-3  8  A 

A 

1970 

43  0 

o" 

2  3.88 

1000 

AC37-38  A 

4 

1970 

5  0 

0 

2 3  .88 

1000 

AC37-38  A 

A 

1970 

530 

0 

23  .88 

1000 

AC37-38  A 

4 

1970 

6  0 

0 

23  .88 

1000 

AC37-38  A 

4 

1970 

630 

0 

1000 

AC37-38  A 

4 

1  97  0 

7  0 

0 

23.86 

1000 

AC  3 7- 3 8  A 

4 

1970 

730 

0 

23.84 

1UUU 

LAST   RECURC  CN  M  AC  .  = 

AC37-38  A 

4 

1970 

8  0 

c 

23.81 

1000 

?NDlNG  GAGE  HEIGHT  LABEL= 

23. 

81 

ENDING  Cn 

TAPE  LABEL 

=  4- 

4-1970 

8  0 

23.61 

END   OF    TAPE  CCMPUTEC 

=  A- 

4-1970 

8  0 

23.81 

ERROR  CCCE 

FOR   P A  FE " 

TAPE 

-1000 

35-RECCRCS 

WRITTEN  FOR 

PAPER 

TAPE 

RECORDS  WERE 

WRITTEN 

CN   MAG.  TAPE-CUMMY 

A  TOTAL  CF 

67  RECORDS 

WERE  WRITTEN  CN  MAG. 

AT  THIS  POINT 

ERROR  COCE 

=  (  1CC0)   GOOD  DATA 

TAPE-NC  APPARENT  ERRORS 

Figure  14. -An  example  of  printer  output  from  one  ground  water  (aquifer)  paper  tape  record. 
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magnetic  storage  tape.  The  same  type,  identical  first 
letter,  and  variable  names  must  be  used  when  reading  a 
record  as  were  used  when  the  record  was  written  on 


the  magnetic  tape.  The  output  variables  and  storage 
requirements  of  each  of  the  three  types  of  hydrologjc 
records  are  described  in  the  following  record  layouts: 


.   Precipitation  data  storage  records:  Record  Length  =  60  bytes  (56  actual  +  4  extra). 


Variable 

I  win 

GAGE 

NDATE(l) 

NDATE(l) 

NY11 

Storage 
(Bytes) 

4 

12 

4 

4 

4 

Significant 
Characters 
per  Field 

4 

12 

2 

2 

2 

NDATE(3) 

NDATE(4) 

NnATE(5) 

TRACE 

nREC. 

4 

4 

4 

4 

4 

2 

2 

2 

1 

5 

STYPE 

Neon 

4 

4 

1 

4 

2.   Streamflow  Data  Storage  Records:  Record  Length  = 

60  bytes  (56  +  4). 

Variable 

iwin 

GAGE 

NDATE(l) 

NTOATE(2) 

NY11 

NnATE(3) 

Storage 
(Bytes) 

4 

12 

4 

4 

4 

4 

Significant 
Characters 
per  Field 

4 

1  2 

2 

2 

2 

2 

NDATE(4) 

NDATE(5) 

NTINT 

NnST 

AREC 

Neon 

4 

4 

4 

4 

4 

4 

2 

2 

3 

1 

6 

4 

3.   Ground  water  well  data  storage  records: 

Record  Length  =  60  (56 

+  4). 

Variable 

IWID 

GAGE 

NnATE(l) 

NTOATE(2) 

NY1 1 

NnATE(3) 

Storage 
(Bytes) 

4 

12 

4 

4 

4 

4 

Significant 
Characters 
per  Field 

4 

12 

2 

2 

2 

2 

NDA  1  1(4) 

NDATE(5) 

NREFE 

AAREC 

Neon 

BLANK 

4 

4 

4 

4 

4 

4 

2 

2 

1 

8 

4 

0 

24 


Variables 


Description 


Variables 


Description 


IW1D  Watershed  Identification  number. 

GAGE  Gage     location    number.  Example: 

(WE38U  ). 

NDATE(l)     Month.  Example:  (12). 

NDATE(2)      Day.  Example:  (31). 

NY11  First  two  digits  of  the  year.  Example: 

(19). 

NDATE(3)  Last  two  digits  of  the  year.  Example: 
(72). 

NDATE(4)     Hour  (military  time).  Example:  (24). 
NDATE(5)     Minutes  (multiple  of  5  or  30).  Example: 
(00). 

TRACE  Trace  on  or  off  for  record  of  precipita- 
tion. Example:  (T). 

STYPE  The  type  of  precipitation,  a  blank  repre- 

sents rainfall.  Example:  (S). 

NTINT  Number  of  5-minute  intervals  stream- 

f  1  o  w  gage  level  in  effect. 
Example:  (101). 


NDST  If  equal  to  zero  or  blank,  a  large  or 

single  streamflow  control. 
If  equal  to  one,  a  small  control  of  a 
dual-control  gage.  Example:  (0). 

NREFE  If  equal  to  one,  the  ground  water  well 
levels  represent  elevation.  If  equal  to 
zero  or  blank,  ground  water  well  levels 
are  actual  gage  height.  Example:  (1). 

DREC  Precipitation  amount  collected  per  time 

interval.  Example:  (000.2). 

AREC  Streamflow    level    for    time.  Ex- 

ample: (000.25). 

AAREC  Ground  water  well  level  for  time.  Ex- 
ample: (01985.28). 

NCOD  Gage  malfunction  ERROR  code.  Ex- 

ample: (1,000). 

BLANK  Used  as  record-padding  space  (four 
blanks). 


CONCLUSION 


The  edited  magnetic-tape  storage  data  provide  the 
first  step  to  digital  hydrologic  data  analysis.  The  data 
from  these  storage  tapes  are  retained  in  the  original 
form  as  basic  data  master  files.  Analysis  and  data 


correction,  aided  through  use  of  the  malfunction  error 
codes,  can  be  accomplished  from  the  master  files  at  the 
discretion  of  the  user. 
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APPENDIX    I.   GAGE   MALFUNCTION   ERROR  "CODES 


A   ONE    IN  COLUMN   ONE    MEANS    VALUE    PUNCHED   ON   LAST  PUNCH 
OUT   OF    PAPER    TAPE    IS   TRUE   VALUE   RECORDED   BY   GAGE.    A  £ER 
0    IN   COLUMN   ONE   MEANS   AN   ERROR    IN   LAST   VALUE  PUNCHED. 
A    «X«    NOTES   A   CHOICE   OF   A    «1'    OR   A    "O1    IN   COLUMN  ONE. 
1000=GOOD   DATA    TAPE      NO   APPARENT  ERRORS 

2000=DATA   CONTAINS    ESTIMATED   VALUES   OR    (ESTIMATED  DATA) 

(    TIME   LOSS   CODES  ) 


X  0 1 0 
XOll 

X012 
X013 

X014 
X015 
X016 
X017 
X018 
X019 
X020 
XU21 
X022 
X023 
X024 
X025 
X026 
X027 
X028 
X029 


TIME    LOSS-TIMER    FAILURE   GAGE  STOPPED 

TIME  LOSS-LEAF  SWITCH  FAILURE  GAGE  RAN  CONTINUOUSLY  U 
N  T I L   BATTERY  FAILED 

TIME   LOSS-TIMER    FAILURE    INTERMITTANT  OPERATION 
TIME   LOSS-TIMER    FAILURE   TIME    DIFFERENCE   AT   END   OF' PAP 
ER  TAPE. 
TIME  LOSS- 
TIME  LOSS- 
TIME  LOSS- 
TIME  LOSS- 
TIME  LOSS- 
TIME  LOSS- 
TIME   LOSS-NO   APPARENT  REASON 
TIME  LOSS- 
TIME  LOSS 
TIME  LOSS 
TIME  LOSS 
TIME  LOSS 
TIME  LOSS 
TIME  LOSS 
TIME  LOSS 
TIME  LOSS 


LEAF   SWITCH  FAILURE 

BATTERY  FAILURE 

IMPROPER    TAPE  INDEXING 

PUNCH   MOTOR    OPERATES    I  NT EKM I TT ANTL Y 

PUNCH   MOTOR  FAILURE 


(    TIME   GAIN  CODES  ) 


X030  =   TIME  GAIN-TIMER   FAILURE   2   1/2   MINUTE   PUNCH  INTERVAL 

X031    =   TIME  GAIN-TIMER    F A  I LUR E "  I  NT ERM I TT ANT  OPERATION 

X032   =   TIME  GAIN-LEAF   SWITCH   FAILURE   GAGE   RAN  CONTINUOUSLY  U 

NTIL  BATTERY  FAILED 

X033    =   TIME  GAIN-NO   APPARENT  REASON 

X034   =   TIME  GAIN-LEAF   SWITCH  FAILURE 

X035    =   TIME  GAIN-IMPROPER    TAPE  INDEXING 

X036   =   TIME  GAIN-TIMER    FAILED   TIME  DIFFERENCE 

X03  7   =   TIME  GAIN- 

X03B   =   TIME  GAIN- 


AT   END  OF  TAPE 
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X039  = 

=  TIME 

G  A  I  N  - 

X040  : 

=  TIME 

GA  I  M- 

X041  : 

i  TIME 

GAIN- 

X04  i  : 

=  TIME 

GA  I  N- 

X043  : 

:  TIME 

G  A  I  N  - 

X  044  = 

:  TIME 

Q/\  J  |\|_ 

X045  = 

=  TIME 

GAIN- 

X  04  6  = 

:  TIME 

GAIN- 

X047  = 

AWT  1 

:   T  T  M  F 

G  A  I  N  — 

AUtO 

:    T  T  M  F 

P,  A  T  N  - 

X049  = 

=  TIME 

GAIN- 

(  INCOMPLETE  RECORD,  IMPROPER  PUNCHING,  SENSITIVITY 
COOES  ) 

X050   =   TAPE    IMPROPERLY    INDEXED    (    NO   TIME    LOSS   OR   GAIN  ) 

X05  1   =  GAGE    INSENSITIVE   AT   SOME   POINT   ON  RECORD 

X05  2   =    SNOW   WITH   FUNNEL    IN  PLACE 

X053    =    INTAKE   SILT  PROBLEM 

X054   =    INTAKE   PIPE   STOPPED  UP 

X055    =   DRIFTING  SNOW 

X056   =   FOREIGN   MATTER    IN  COLLECTOR 

X057   =   CABLE  BREAKAGE 

X058   =   GAGE   TAMPERED  WITH 

X059   =  FUNNEL   FALLEN    IN  COLLECTOR 

X060   =    PRECIPITATION   LOSS   NO  REASON 

X061  = 

X06^  = 

X063  = 

X064  = 

X065  = 

X066  = 

X067   =   PAPER    TAPE    SUPPLY   RAN  OUT 
X068   =    TIMER   TURNED   TO   TEST  POSITION 
X069  = 

X070   =   NOTCH   OF   WEIR    PROBLEM  (ICE) 
X071    =   LOG   JAMS   OR    BEBRE    IN  NOTCH 

X072   =   VALUE   GREATER   THAN   RANGE   OF    INSTRUMENT   AT    SOME  POINT 

X073    =   FLOAT   TAPE   DISENGAGED   FROM  RECORDER 

X074  = 

X075  = 

X076  = 

X077  = 

X07B   =    ICE    JAMMING    (    CAUSE   HIGH   G   H  ) 
X079   =  HEAVY    ICED  CREEK 

(    TRACE    INDICATOR   MALFUNCTIONS  ) 
NOTE    IF    TRACE   CODE   USED   OR   COMBINATION   OF   TRACE   CODE   USED  PL 

ACE    A    1    IN   COLUMN   55   OF   PAPER   TAPE    IDENTIFICATION  FORM 
X080   =   TRACE    PUNCHES   WITHOUT  PRECIPITATION 
X08L    =   PRECIPITATION   WITHOUT   TRACE  PUNCHES 
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X0H2   =   TRACE  INCONSISTENT 

X083  = 

X084  = 

X085  = 

X086  = 

X087  = 

X088  = 

X089  = 

(    TRANSLATOR   READING   ERRORS  ) 


X090  =    TRANSLATOR   READ   HEAD   MALFUNCTION    (    INCORRECT   RECORD  ) 

X09  1  =   MANUALLY    INSERTED  READING   ON   DOUBLE    PUNCHES  WRONG 

X092  = 

X093  = 

X094  = 

X095  = 

X096  = 

X09  7  = 

X098  = 

X099  = 

(    COMPLEX    ERROR   CODES  ) 


XlOO  = 

X101  = 

XI  02  = 

X103  = 

XI 04  = 

XI 05  = 

XI 06  = 

XI 07  = 

XI 08  = 

XI 09  = 

X110  = 

X  1  1  1  = 

X112  = 

X113  = 

X114  = 

X115  = 

X116  = 

XI 17  = 

X118  = 


X024+X026 
A  I  L  U  R  E 
X035+X026 
X026+X080 
X020+X082 
X033+X082 
X023+X024 
X  0 2 3  +  X  0  3  5 
X050+XO82 
X020+X080 


TIME   LOSS    IMPROPER    INDEXING   £   PUNCH   MOTOR  F 


TIME   GAIN    IMPROPER    INDEXING  £ 
MOTOR    FAILURE    £   TRACE  WITHOUT 
TIME   LOSS   NO   REASON  £ 
TIME   GAIN   NO   REASON  £ 
BATTERY    FAILED   £  TIME 
BATTERY    FAILED   £  TIME 
TAPE    IMPROPER  INDEXED 
TIME   LOSS   NO  APPARENT 
T  PRECIPITATION 
X033+X080   TIME  GAIN 
T  PRECIPITATION 
X023+X026   BATTERY  FAILURE 


MOTOR  FAILURE 
PRECIPITATION 
TRACE  INCONSISTANT 
TRACE  INCONSISTANT 
LOSS   TAPE  INDEXING 
GAIN   TAPE  INDEXING 
£   TRACE  INCONSISTANT 
REASON   £    TRACE  WITHOU 

NO   APPARENT   REASON    £    TRACE  WITHOU 


X024+X081  TIME 
WITHOUT  TRACE 
X035+X081  TIME 
WITHOUT  TRACE 
X024+X082  TIME 
STANT. 
X035+X08  2 
STANT. 
X012+X05I 
TIVE   AT  A 
X0  31+X051 
TIVE   AT  A 
X070+X054 
X060+X050 


&    PUNCH  MOTOR 
LOSS    IMPROPER    INDEXING  ft 


FA  I  LURE 

PREC  I  P I  TAT  I  ON 


GAIN    IMPROPER    INDEXING   G  PRECIPITATION 


LOSS    IMPROPER    INDEXING   £   TRACE  INCONSI 


TIME   GAIN    IMPROPER    INDEXING   £   TRACE  INCONSI 


LOSS   TIMER    INTER MITTA NT    £   GAGE  INSENSI 


TIMER    INTER MITTA N T   £  GAGE  INSENSI 


TIME 
POINT 
TIME  GAIN 
POINT 

NOTCH   OF   WEIR    ICE   £    INTAKE   PIPE  'STOPPED  UP 
PRECIPITATION   LOSS   NO  REASON   £   TAPE  IMPROPE 
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R  INDEXING. 

X119  =  X013+X052+X055  TINE  LOSS  TIMER  .FAILURE  S  SNOW  WITH  FU- 
NNEL  &   DRIFTING  SNOW 

X120  =  X036+X052+X055  TINE  GAIN  TIMER  FAILURE  &  SNOW  WITH  FU 
NNEL   &   DRIFTING  SNOW 

XL21  =  X024+X052  TIME  LOSS  IMPROPER  TAPE  INDEXING  &  SNOW  WIT 
H   FUNNEL    IN  PLACE. 

X122  =  X035+X052  TIME  GAIN  IMPROPER  TAPE  INDEXING  £  SNOW  WIT 
H  FUNNEL    IN  PLACE. 

X123  =  X024+X057  TIME  LOSS  IMPROPER  TAPE  INDEXING  &  CABLE  BR 
E AKAGE 

X124  =  X035+X057  TIME  GAIN  IMPROPER  TAPE  INDEXING  &  CABLE  BR 
E AKAGE 

X125    =   X052+X055   SNOW   WITH   FUNNEL    &   DRIFTING  SNOW 
X126   =   X026+X052   PUNCH   MOTOR    FAILURE    &   SNOW   WITH   FUNNEL  IN 
X127   =    X013  +  X080   TIME   LOSS   TIMER   FAILURE    &   TRACE   WITHOUT   P  K  E 
C  I  J  I  T  A  T  I  0  M  . 

X128  =  X036+X080  TIME  GAIN  TIMER  FAILURE  &  TRACE  WITHOUT  PRE 
CI  PI  TAT  I  ON. 

X129  =  X026+X030  PUNCH  MOTOR  FAILURE  6  TIMER  FAILED  2  1/2  MI 
NUTE   PUNCH  OUT 

X130  =  X081+X050  PRECIPITATION  WITHOUT  TRACE  g  TAPE  IMPROPER 
L  Y  INDEXED 

XL31    =    X091+X024   TRANSLATOR   READ   HEAD   MALFUNCTION   S   TIME  LOS 

S  TAPE  INDEXING. 
X132   =   X091+X035   TRANSLATOR   READ   HEAD   MALFUNCTION   8   TIME   G A I 

N  TAPE  INDEXING. 
X133    =    X072+X073   VALUE   GREATER   THAN   RANGE    &   FLOAT   TAPE  DISEN 

GAGED. 

X134  =  X033+X081  TIME  GAIN  NO  APPARENT  REASON  AND  PRECIP.  WI 
THOUT  TRACE. 

X135  = 
X136  = 
X137  = 
X138  = 
X139  = 
X140  = 
X141  = 
X142  = 
X143  = 
X144  = 
X145  = 
X146  = 
X147  = 
X148  = 
X149  = 
X150  = 
X151  = 
X152  = 
X153  = 
X154  = 
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X155  = 

_X15  6__  = 
X157  = 
X158  = 
X159  = 
X160  = 
X161  = 
X162  = 
XI 63  = 
X164  = 
X165  = 
X166  = 
X167  = 
X168  = 
X169  = 
X170  = 
XI 71  = 
X172  = 
X  I 73  = 
X174  = 
XI 75  = 
X176  = 
X177  = 
X178  = 
XI 79  = 
X180  = 
X181  = 
X182  = 

"X183  = 
X18A  = 
XI 85  = 
X186  = 

"X187  = 
X188  = 
XI 89  = 
X190  _= 
XI 91  = 
X  1 91 
X193  = 
X194  = 
X195  = 
X196_= 

"X19  7  =" 
X198  = 
X199  = 


APPENDIX   I JL    C 0 M p_UXL^_S 0 U.B.CJL ERJQ£lRA^__L LS.TJ.aG. 


L0GICAL*1   WSH{ 16} ,HCAR01( 54) ,HCARD2 (54) ,HCARD3( 54} 

 LOGICAL* 1  .GWT2(6 )  ,ACARD(80)  

COMMON  OUT2,hCARD 

C OM M Q_N_/ BLK 1  /  ST Y PEC999 1  i_AR_E C  (  2  5 7 J j  C  R EC  (  2 5 7 )  ,  A T R  A  (  2 571  f  _C_ 

1TRA(257),       GAGE ( 3 ) ,  GAG ( 3  ) ,  NSDTE ( 999  »  3 )  ,  NDATE ( 257 , 5 ) 
 CO M MO N/BLK2/J»I ,L  ,N STOP » NCHECK » NSTORE , I STOR EtICHECK «NI 

ICE,  NWSH, KSEQ,NSEQ, NOTE ,MIAC, NSKI P,NLIST,NPFG, 
 2NOPT , NCPT,NTPT,NTYPE ,NX,KB, I X > MAXNC » I  EOF « NOEOF , NCQD , I T 

3,KT,NSTART, LDATA, EL  ERE F,  NSC , YACC  TaCC , NT  RACE , ABA SE , NSNO 
 4W,INDEX,NG0  , NEED , NUT , ATREC , BTR EC , I T  IC  *  MLSJIl 

5NTINT,LTINTtNORM,LHEC ,DREC,NTIC, ADIFF,NF  IRST, NREFE,NPI 

~COMMGN/BLK3 TnhYT NY22 i NMIN 71  YR ,  MTltNMltN Y 2~7nM 0 N T H ,  I HR 7n 
 1D1,ARD1, NH2  tNDAV*  I.M0,IMN,NYlltMT2tNM2  ,.NYEAR  ,  IDA, NY1  ,_NO . 

22,ARD2,NHOUR,NYE,NYXX,  ITMO,  ITDA,  ITYR, I THR , I TMN, GR E F , 
 3MASH,NDEX,KTMQ,KTDA,KTY,KTYR,KTHR ,      KTMN » NSTARE  t  LYiARE 

4D,MTINT, IWIO 

 COM  MGN/BLK*  /  LJLLJ  12.)  /  BLK  5/TR(  2  i  

CALL   ERRSET  (215,256,-1,1,1) 
 NF I  LE=1   

NCPT=0 

 NSE_Q_Q=0    

5001  KSEQ=0 

C   I  NT  I AL I Z I NG  OF  STORAGE  

DO  1  L=l,257 

DO  L  1=1,5  

ATR A ( L ) =0.0 

 AR£C(  L)  =00.  00  

CT RA(L)=0.0 

 CREC(L)=0 0.00  

1     NDATE (L , I) =00 

  DO  55   1  =  1,999  .   _ 

DO  55  K=l,3 

55_      NSDTE  ( I  ,K)=OQ        _  

NSTORE=0 

 NGTE=0  

NSTOP=0 

  NSEQ=0   

NSlMOW  =  0 

 AIREC=0.0      

BTREOQ.O 

 KB  =  0  

NREFE=0 
NORM=0 
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C     READ  HEADER  CARD  FOR  NUMBER  OF  PAGE  HEADING  CARDS  _ 
READ<5,152)  NHEAD,NSC 

152     FORMAT  (11,13)  ;   _   

C     READ  PAGE  HEADING  CARDS 

 IF ( N H E A D • EQ . 0 1  GO  TO  5002 

READ (  5, 5003  )  HCARD1 

5003  FQRMAT( 54A1 j   

I  F  {  N  H  E  A  5  .  E  Q~.  1 ")   GO  TO  50  02" 

 READ  <5t  5003  )_HCARD2_ 

~  IF  (  N  HE  A  D  .  EQ  .  2  )   GO  TO  5  002" 

 _READ( _5f_50  0_3  )  _HCARD3  L  _ 

5002  "CONTINUE  " 

C_X_JK_X _X  SNOW  CARDS  READ_IF  NSC  GT  ZERO  ANDPRECIP  CATA 

I  F  ( NSC . E Q  .0  J   G 0"  TO  "  3    " " 

 DO  151   1=1, NSC  

READ* '5,2) ( N  SDTE (  I  ,L  ) , L=l , 3 ) , STY PE ( I ) 

2  £P_RMAIi3_I2,Al)_  

151  CONTINUE" 

 3  NQPT=0 

NCH~ECK  =  6 

_INDEX  =  1   

YACC=0~.0~ 

 NS£D=0  

IX=0 

 NS[ART  =  0  

IF(NSC.E0.0rNSC=r 

C  X  X  X  X  CONTROL  CAR°_RJ_AD_  

READ ( 5,4) STATE, I W I D , WSH ,  GAG   , NPFG , NT  PT , I  EOF , IT, KT , 0UT2 
l,NSKIPtNOEOF,KTl, KT2 ,KT3, KT4, NDST , NE WD A T , I GREF 
"  4         FORMAT ( A3 , 1  4 ,  16A1,  ~3A4 ,212, 1 1,2  I  2 ,6 A 1 , 11,512,211,14) 
C_X  _X  _X_  X  X  _X_X  X_XJLABEL   CA_RD_READ_X_  X  X   XX  X  X  X 

5  READ ( 5,6 )   N COD, GAGE , MP  I L , NTYPE , NT RACE ,MT1 ,ND 1 , NY1 1 , NY1 
1,NH1,NM1, ARDJ.,MT2,ND2,NY22,NY2,NH2,NM2,APD2, ICHECK,NLI 
" 2ST, 1 1 C  H  G »  L  D  A  T  A , EL  ERE  F 

6  _F_gRMAT_(_I4,_3A4,  12,211, 2(612,  F4.  2)  ,411, F6. 2) 

AGREF=IGPEF  " 

 I F ( NTYPE. EQ  .  1 )   GREF=AGREF*. 1  

I F ( NT  YP  E . EQ . 2  - OR • NT  Y  PE  . EQ .  3 )   GR E  F  =  A GR E F  * . 0 1 

 IFJ_IGREF.EQ.O.AND.NTYPE.EQ.  1 )   GREF  =  00 1.0 

IF( IGREF. EQ.O .AND. NTYPE. EQ. 2)  GREF=30.00 
_  I  F  (  I _G -  R  E  F  .  E  Q_.  0  _._A  N  D  .  N  T  Y  P  E  .  E  Q  .3 jj   G  R  E  F  =  6  0  .  0  0 
IF( IGREF .EQ  .0 . AND .NT Y P E . EQ . 3 • AND .ELEREF.GT.O.O)    GREF  =  E 

  1LEREF+60.00   

MIAC=T 

  IF( ITCHG.EQ.l)  NTRACE=0 

C  XX  XXX  X  CHECKING  FOR  PROPER  DATA  TYPE  AND  WRITING  HEA 
C  DINGS 

DO  99  2  MN=1,3" 
 I  F ( GAGE ( MN ) .EQ. GAG ( MN ) )   GO  TO  _992_ 

GO  TO  991 
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992  CONTINUE  

GO  TO  8 

___99JL  WRITE(6t7)  

7  FORMAT ( *   STOPPED  WRONG  TYPE  DATA  OR  GAGE  NAMES  DO  NOT 

 1  MATCH*  )    

GO  TO  3000 

 8  WRIT£(6,5004)  

5004  format! ihij 

 ifjnhead.jeo-oj  g0_t0_5006  

write ( 6, 500  5jhcard1 

_  JQ05__FORMA_T(  37X_jJ54A_l  )  

IF (NHEAD.EQ.li   GO  TO  5006 
 WRITE(_6j50p5JHCAR02  

I F ( NHEAD.EQ .2 )   GO  TO  5006 

WRITE  (  6  f  500  5)  HCARD3  

5006  WRITE(6,9)    STATE  ,  I  WID/WSH  , GAGE 

_._9  FORMAT  (  37_XjlJ  STATE-  '_tA3  ,5X  t  '  STATE   I_ND.   NO.  =  ^iI4//37X, 

1 1  WATERS HE D= 1 f 16A1 »  5X  f »GAGE=«,  3A4//) 

NICE=Q  

NOTE=0 

 NWS_H=0   _  

NYE=NY1 1 

 NMQNTH-MT1   

NDAY=ND1 

 NYEAR  =  N  Yl   __  _____ 

NHUUR  =  NH1  " 

 NMIN=NMI  ._  

NX=0 

 IM0-MT2        _  _  

I DA=ND2 

 JY_^NY22   

I YR=NY2 

IHR=NH2  

IMN=NM2 

ARED=ARD2_  _   

NUT  =  0 

 Acc_=o._o_ 

NSTARE=0  " 
_LSTORJ^P 
ITIC=0 
NEED=0 
NGC  =  0 
__  NFIRJ>T=1 

I F (  I C H EC K . E Q . 0 )   GO  T 0  '  14 " 
C   x  x_  X_X.  X  X   X  X  X  R  EAD  TRANSLATOR   ERROR  CARD 
READ ( 5t  31 )    I MO i I DA» I Yt I YR 7 IHR  » I MN  » ARED 
31       FQRMAT( 36X,6I2,F4.2) 
14       I F ( NSTORE  .EQ.OJ   GO  TO  15 
c  x  X  X  X  X  XXX  X_TAKE_OUT  OF   STORAGE  DATA   STORED  FROM  LAS 
C        "  TREAD 
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DO   101  J=1,MAXN0 

AREC ( J) =CREC( KB) 

IF( NTYPE.NE.l)   GC  TO  101 

ATRAt J) =CTR A( KB) 

 101 

KB=KB+1  _ 

J=MAXNO 

----- 

GO  TO  103 

X  X  X  X  X  X   X    INPUT   DATA   READ  OF  MAG. 

"tape  ~~ " 

C  X  X 

X  X  X  X  X  X  X  TEST  FOR  FOUR  NINES  END 

„OF_JAPE  

15 

DO  150  J= 1,255 

IF (NTYPE.EO.l )   GO  TO  9002 

.READ( IT» 10, END=200, ERR =9000 )   AREC ( J ) 

10 

FORMAT ( F4  .  2  ) 

IF  i I  EOF . E  Q. 1 )   GO  TO  150 

9001 

IF(APEC(J).EQ.99.99)   GO  TO  104 

GO  TO  150 

 9000 

RE AD ( I T, 10, EN D= 200, ERR =9001)   AREC ( J ) 

I F ( IEQF.EQ. 1)   GO  TO  150 

GO   TO  9001 

9002 

READ { IT, 99, END=200 , ERR=9003 )   ATRA ( J ) , 

AREC ( J ) 

 99 

F0RMAT(F1.0,F3.1) 

IF( IEOF.EQ. 1)   GO  TO  150 

9004 

IF(AREC(J).EG.99.9.AND.ATRA(J).EQ.9. ) 

GO  TO  104 

GO  TO  150 

9003 

READ (IT ,99, EN 0=200, ERR=9004)   ATRA ( J ) , 

AB.ECJ_JJ  

IF< IEOF.EQ. 1)   GO  TO  150 

GO  TO  9004 

~150H 

CONTINUE 

C  X  X 

X  X  X  X  X  X  X  CONTINUE  NOT  END  GF  PAPER  TAPE 

J  =  255 

103 

NSTORE=0 

NCHECK=0 

NOTE=0 

~13 

CALL   DA  TIME 

GO  TO  11 

c  x  x 

X  X  X  X  X  X  X  END  OF  PAPER  T.APE  STEP 

PA PER  TAPE  COUNT E 

c 

R 

104 

NCPT=NCPT+1 
N0PT=N0PT+1 

N0TE=1 

NSTORE=0 

NCHECK=1 

NX=1 

IF(J.EQ.l)   GO  TO  110 

NX=0 

J  =  J-1 

CALL  DATIME 

~TT~ 

IF(NORM.EQ. 1)   GO  TO  12 
GO  TO  110 

12 

CALL  CHECKO 
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 IF<NSTCP.EQ.l )    GO  TO  3000  

GO  TO  110 

CXXXXXXXXX  READ  END  OF  FILE  BRANC  fcL  GN  DATA  R EAD 
200  NCPT=NCPT+1 

 N0PT=N0PT+1  ,  

NSTOP=0 

 NSTORE=0  

NCHECK= 1 

 NQTE^l   _______ 

IF(J.EQ.l)    GO  TO  13 

 J=J-1   

GO  TO  13 

CXXXXXXXXX  TEST  TO  SEE  IF  END  OF  ALL.  _PAJPE  R  T  A  PES  FO 
C  R  A  GAGE  t  OR 

CXXXXXXX  X_X_  END  _OF__ALL  _PAPER  TAPES   FOR   THE  RUN 
110      IF{ NOPT.EQ.NPFG)  NWSH-1 

 IF(NCPT.EQ.N TPT  J_  N  S  TCP  =  1   

LTI NT=0 

IF (NX.EQ. 1)    GO  TO  311  

NX=0 

 IF(NTYPE.LT.1_GR. NTYPE. GT»3)   GO  TO  991  

I F { NTYPE • EQ  •  1 )  CALL  PRECIP 
 I F  (  NTYPE .  EQ.2I  C  A LL  _R U NQFF_  

I F ( NTYPE. EQ  .3 )  CALL  AQUFER 
311     NSTARE= 1  

NICE=1 

 IFtNCHECK.EQ.l)  NSTARE=Q  

I F ( NCHECK .EQ. 1 )   GO  TO  28 

 GO  TO  15  

28       CALL  OUTPUT 
 IF(  NSTGP.EQ.l )   GO  TO  32  

IF(NWSH.EQ.l.AND.NEWDAT.EQ.i)   GC  TO  32 

IF( NWSH.EQ. 1)   GO  TO  3    

GO  TO  5 

CXXXXXXXXX  END  OF  PROGRAM  KRITE  INFRC  ABOUT  TAPE  SE 
C  PERATERS 

32       NS£QQ=NSEQQ+NSEQ   _   

IF{  IEOF.EQ.O)   GO  TO  51 
 WRITE(6t50l  

50  FORMAT ( •    IN  PUT  PAPER  TAPES  WHERE   SE  PERATED  BY  EOFS') 
 GO  TO  500  

51  kRITE(6,_53) 

53       FORMAT  (  '    INPUT  P APER  T APE S  WH E R E_  SEJPE R ATED  JB_Y  F_0 UR- N_I  N 
1ES') 

500     IF ( NEWDAT.EQ. Q)   GO  TO  501  

WRITE (6,452)   NSEQf NFILE 
452     FORMAT  (_1H_0,  'TOTAL  RECORDS  WRITTEN  GN_  MAG,   TAPE=  '  ,  16  »  • 
IFOR  TAPE  F I L E  N 0 . » , 1 3 )  " 

 IF(NSKIP.EQ.l)   GO  TO  5001  

NF ILE=NFI LE+1 
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 END   FILE   KT  ,  

GO  TO  5001 

_50l  WRITE (6,451 )NSEQQ  

451     FORMAT. 1H0, 'TOTAL  NO.   RECORDS  WRITTEN  ON  MAG.  TAPE=',I 

 16J     __  

IF( KT1.NE  .0  )   END  FILE  KT1 

IF(KT2.NE.Q)    END  FILE  KT2  

~ IFI KT3.NE.0  )    END  FILE  KT3 

 IF(KT4.NE.O)   END  FILE  K14   ___ 

3000  STOP 

_  ______   

SUBROUTINE  CATIME 

_C  1UJ3FU_  COM  PUTES  DAT E_  AND  TIME  FOR  EACH  R  EC  CR  D  _R  EAD  IN 

LOGICA L* 1   0  U  TT(  6 ) , AC  A R  0 (80) 

 COMMON  _0UT2,ACARD   

~  COMMON  /  BL  K 1  /  S  TYP  E  ( 99  9 F,  AR  EC  (  2  5  7  )  ,  CR  EC  ( 2  5  7  )  ,  A  T  R  A  ( 2  57  )  ,  C~ 

 1TRA  (_2  57 )  ,  G  AGEJ  3J  *  G  A_S  £  3J jN ^  D  T  E_(_9  9  9  ,3)  _,  NDATE  (257,5) 

COMMON/ BLK2/J , I ,L ,NSTOP ,NCHECK  ,NSTORE  ,  I STCR E  ,  I C FECK , N I 

 ICE,  N  W  S  H ,  KSEQ,  N  SE  Q__N  0  T  E__  MJ_  AC  LN  S  K I  P,  N  L  I S  T  ,  NPFG, 

2N0PT, NCPT ,NTPT,NTYPE , NX , KB , I  X ,  MAXNO , I  EOF » NGECF , NCGD , I T 

 3,KT,NSTART,LDATA , ELEREF , N SC , Y ACC , ACC , NT  RACE , ABASE ,  NSNO 

4W , I NDEX ,  NGO  , NEED, NUT  , A  TRE  C »  BTRECltlC  ,  NDST  , 

 5HTI  NT,  LTI  NT  ,  NORM  ±L  H  EC ,  DREC  ,_NJ  _____  AD  I  FF,N  F  IRSTtNREFE »NPI 

6L 

 COM MQN/BLK3/NH1  ,NY2 2  fN MI N  ,  I Y R_, MT_1_,  NM1  ,_N Y_2_»N MONT H_,  I H R_, N_ 

1D1 ,  AR01  ,NH2  ,NDAY,  IMO,  IMN,NY11 ,  MT2 ,  NM2~,  NYE  AR  ,  IDA  ,  NY1 ,  ND 

 22,  ARD2,NH0UR,  NYE  ,NYXX,      I  TMQ_,_I  TD  A  ,_I  T  YR  ,  I THR ,  I  TMN ,  GR  EF , 

3MASH, NDEX,KTMO,KTDA ,  KT Y , KTYR , KTHR »     KTMN , NST ARE , IY, ARE 

 4DjJ*lTINT_,  IWID         __   _  

C0MM0N/BLK4/LLL ( 12 ) /BL K5/TR ( 2  ) 
_C__X  X  X  X  X  X     LEAP  YE_AR  TE ST_  X_ J<_  X  X_XJ_X  X  X  XX  _ 
LLL <2)=28  " 

_     ,  IFJNYEAR.EQ^.OO.  AND. NYE. NE  .20)   GO  TO  11 

I F (NYtAR.EO .00. AND. NYE. NE .2 0 V  GO  TO  1 1 
IF_J  NYEAfc/4*4)  ._EQ.NYEAR)  _LLL(2)=29     _  __ 
C  X  X  X  X  X  X  X  X  X   FILLING  ARRAY  WITH  DATE   TIME  CF  EACH  GAG 

C_         E  HEIGHT     

11     ~ IF( J.EQ.256)  J=J-1 

_______  3  1=1,  J  _   

NDATE ( I , 1 )  =  NMONTH 

 NDA TE ( I »  2 )  =  NDAY 

NDATE ( I , 3 ) =NYEAR 

 NDATHI_,_4Jj=_NHpUR     

"  NDATE ( I »  5 )  =  NM  I N 

 IFJ  NC0D.NE._1000.AND.  I  CHECK . EQ . 0 )_G0  TO  446 

I F ( ( IMG.EO. NMONTH) .AND. ( IDA. EO. NDAY) .AND. ( I YR. EQ. NYE AR 
1)_.AND.(  IHR.EQ.NHOUR)  .AND.  (_IMN.EQ.NMIN)  )   GO  TC  107 
4 46     IF (( NMONTH. EQ.  12 ) .AN  D. (N DA  Y . EQ.31) .AND. ( NHOUR .EQ. 24) J 

 1G0  TO  12   _  

NM I N=NM I N+N  PI L 
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MIAC=MI  AC  +  1  ;  

IFtNMIN.NE.60)   GO  TO  34 

 NHOUR=  N  HOUR +01  

NMIN=00 

34  IF( (NHOUR.EQ.  24  L.^AN D_.J  NMXN^^ Oi_L _G.fi. _T_C__13_  

I F ( NHOUR.LT .24)   GO  TO  13 

 NDAY=NDAY+Q  1  

NH0UR=00 

 K=NMQNTH   _   

I F { NDAY. LE. LLL( K  ) )   GO  TO  13 
 NilONJ_H=  NMQN  JH+0 1  ■_ .  ^ 

NDAY=01 

 GO  TO  13  

12  NM0NTH=G1 

 NDAY=01  

NYE AR  =  NYE AR  +0 1 

 LLL±Zl=28_   _    

IF(NYEAR.EQ.OO.AND. NYE.NE.20)   GO  TO  1001 
  IF< (NYEAR/4*4).eQ_NY£AR)  LLL(2)=29  

~1001   IF( NYEAR.NE.lOO)   GO  TO  20 

NYE  AR=Q0   .  

NY1 1=NY11+1 

 NY22-NY22-H   

20  NHOUR=00 

 NJIINfNJPIL  

13  CONTINUE 

 NORM=Q   

GO  TO  108 

107  NQRM-1    

108  RETURN 

 END  

SUBROUTINE  CHECKO 
C_    SUBR.   FINDS  END  OF  PAPER  TAPE   IF    ICHECK  CODE   IS  USED  AND 
C  A  ERROR  HAS  OCURRED 

 LOG IC AL*  1  0 UJ  2 (  6 ) ACAR D_(_8 Q±  

COMMON  0UT2 , ACARC 

 CQMMGN/BLK1/STYP£(  999)  ,AREC  (_2  5  7)  ,  CREC  (257  ) ,  A_TR A  (257 )_,  C 

1TRA(257) ,       GAGE (3) »GAG(3J ,  NSDTE ( 999 , 3 )  t NDATE ( 257 , 5 ) 

 C0MM_0N/BLK2/JLI ,  L  LNSTOP ,  NCJHECK  t  NS„TCP  E  ,  I  STCR  E  ,  ICHECK  ,  NJ 

ICE,  NWSH, KSEQt NSEQ f NOTE  »MIAC i NSKI P, NLI ST,NPFGf 

 2N0PJiLNCPT,NTPT,NTYPE  ,  NX ,  KB ,  I  XxMAXNO » I  EOF  ,  NOEOF  ,  NCOD ,  IT 

3 f  KT , N STA RT , LD AT A , ELEREF » NSC » Y ACC , ACC  t  NTRACE  t  ABA S E , N S N 6 

 4W, INDEX,  N  G  G,_N  E  ED ,  NUT  ,  AT  R_EC  , BTREC , 1  71 C  ^JN4 DSTj^ 

5NT I  NT  ,  LT I  NT  t  NOR  M" ,  LHE  C  ,  DR  EC  ,  NT  I C  ,  AD  I  F  F ,  NF  IR  ST  ,  NR  EF  E ,  NP I 

 6L   

COMMON/ BLK3/NH1 ,NY22 , NM I N  ,TYR , MT 1,NM_ , NY2 , NMCNT H , IHR , N 

 1  Dl  ,_ARD  1 ,  NH2_t_N DA Y  ,J  MO  ,  I  MN ,  NY11 ,  MT2_ ,  NM2 , N YE  AR , I D A , NY 1 ,ND 

2  2  ,  A  R  D  2 1  N  HOU  R ,  NYE  »  NYXX »     "i  T  M  0  f  I T  D  A     T  Y  R  V  IT  HP  ,  I  TM  N,  GR  E  F  , 

  3MA  SH  t  ND  EX  jj<_TMO,  KJDA  ,K  T  Y  t  K  TYR,KTHR,  K  TM  NtNST  ARE  tlY _fAR  E 

"4Df  MTINftlWIO' 
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 COMMON/ BLK4/LLL < 12) /B LK5/TP ( 2  )  

C  *  *  *  CHECK  TO  SEE    IF  PAPER  TAPE   SEPERATORS  EOFS  OR  4  NINE 

C  S    

NPEXT=0 

 IF ( IEQF.EQ, 1)   GO  TO  205  

CXXXXXXXXX  TESTING  TO  SEE    IF  END  OF   PAPER  TAPE  CONT 

C  ROL  FOUR  

CXXXXXXXXX  -NINES  fcAS  LEFT  CUT  "CR  0 1  F  F  ERE  N  t  (SEE  I C  H 
C  ECKJ  

107  IF(NOTE.EQ.O)    GO  TO  100 

C     FOUND  4  NINES  .  

108  IF< ICHECK.EQ.2)   GO  TO  116 

 I F  (  ICHECK  «GT. 5 )   GO  TO  125    

118     J= I 

 NSTORE  =  0  _____     __ 

GO  TO  110 

116     IF(NTYPE.EQ.l)   GO  TO  9004  

RE AD ( IT, 10, END=201 , ERR =9001 )  EREC 

10       FORMAT  (  F4  .2  )   

12  0     I  F  (  I  EOF  .  E  Q  .  1 )   G  C~  f5~T09 

___     I  F(  ERE  C  •  EQ .  99  .9  9J   GO  TO  118  

CXXXXXXXXX  STORE  DATA   FOR  NEXT  PAPER  TAPE 

109  NST0RE=1    

IF( NTYPE.EO.li  CTRA(1)=£TRA 

 CKEC(  1)=EREC   .   

MAXN0=1 

 J  =  I  

KB=1 

 GO  TO  110   _   

9004  READ ( IT , 99, EN D= 20 1 , ERR  =  9005 )    ETRA  ,EREC 

99       F0RMAT(F1 «Q,F3«1)       

9006   IF( IEOF.EQ. 1)   GO  TO  109 

 I£(EREC.EQ.99.9.AND^ETRA.Eq.9.  )_  GO  TO  116 

"  GO  TO  1 09 

9005  READ(IT,99,END=201,  ERR  =9004 1  EJRA_,EREC 
GO  TO  9006 

9001  READ( IT,10,END=201,ERP=116   )  EREC 
GO  fo  120 

__100__NCPT  =  NCPT-H  

~NOPT=NOPf+l 

 NCHECK=1  

IF(NPEXT.EQ.l)  GO  TO  108 
 NEDR  =  Q    

I2=J-I 

J=I  

IF(I2.EQ.O)  NEDR=1 

 IF(NEDR.EQ.l)    I2  =  25_5_ 

11=1+1 

 IF(  NEDR.EQ.  1)    Il_=l   _  

KEND=U  +  (  12-1) 
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NKK=0 


NCC  =  0 
IKK  =  0 

IF( NEDR.EQ. 0)   GO  TO  170 
GO  TO  190 

170 

DO   171  KP=I1,KEND 

I F { NT YPE . EQ . 1 )   CTRA ( KP ) =ATRA { KP ) 

171 

C 

CREC (KP)=AREC (KP) 
NEED  TO  READ  TAPE   INTO  KREC  ARRAY 

JLF1N EDR=JJL  G0__10_l_90  

179 

DO   180  KX=I1,KEND 

IF( IE0F.EQ.1)   GO  TO  111 

IF(NTYPE.EQ.l)   GO  TO  9007 
IF(CREC(KX)  .EQ.99.99)    GO   TO  182 

9008 
112 

IF( CREC(KX)  .EQ.OO.O)    GO  TO  180 
NKK=  1 

111 

GO  TO  184 

IF(EREC.EQ.OO.O)   GO  TO  180 

 9.007 

GO  TO  112 

IF<  CREC(KX)  .EQ.99.9. AND. CTRA ( KX). 

EQ.9.)   GC  TC  182 

180 

GO  TO  9008 
CONTINUE 

NEDR= 1 
IKK=IKK-H 

174 

IFUKK.EQ.5)   GO  TO  125 
I  1=1 

KEND=255 
GO  TO  190 

— 1y2 — 

IF( ICHECK. EQ. 2)    GO  TO  183 
IF(KX. EQ.KENO)   GO  TO  199 

188 

MAXNO=KEND-KX 

l_  R  —  It  Y  J-  1 

189 

NST0RE=1 
GO  TO  110 

~T84~ 

______ 

IF( KX.EQ.KEND)   GO  TO  173 
KV=KX+1 

~ I F ( I  EOF .EQ.T)    GO  TO  186 
IF ( NTYPE. EQ. 1 )   GO  TO  9009 

186 

I  F  { CREC  IKV )  .EQ.99.99")    GO  TO  172 
IF( KV. EQ.KENO)   GO  TO  187 

KV=KV+i 
GO  TO  192 

9009 

I  F  {  CR  EC(  K  V )  .  EQ.  99  .  9  .  AND.  C  TRA  {  K  V  )  . 

GO  TO  186 

EQ.9.)   GO  TC  172 

187" 

MAXN0=KEND-{KX-1 j 
KB  =  KX 

----- 

IF (ICHECK .EQ. 3 )    GO  T 0  188 

GO  TO  189 

MA  X  N  0 = K  E  NO- K  V 

KB=KV+1 

GO   TO  189 
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173  CREC(1)=CR£C(KX)  

IF ( NT YP  E. EQ  .  1  )   CTRA (  1 )  =CTRA ( KX ) 

 1 1  =  2  

KEND=255 

190  DO  191  KX  =  I  1,KEND  .  

IF(NTYPE.EQ.l)   GC  TO  9010 

 READ( IT, 10, END=201,FRP=9002)  CREC(KX)  

GO  TO  191 

9010  READ( IT ,99, END= 201 , ERP =90 1 1 )   CTRA(KX) ,CREC(KX) 
GO  TO  191 

9011  R£AD( IT,99,END=201)    CTRA(KX) ,  CREC ( KX )  _ 
GO  TO  191 

9002  READdTylOt  END-20U  CREC(KX)  

191  CONTINUE 

 GO  TO  179    

183  NCC=NCC+1 

 I  F  (  KX*  EQ. KEND  )   GO  TO  174  

IF(NCC.E0.2)   GO  TO  188 

 LlfM-tl  _   

~  GO   TO   179  " 

199  NSTORE=0  

GO  TO  110 

125  WRITE(6,126)  

126  FORMAT ( •    UNABLE   TO  DETERMINE   END  OF   PAPER  TAPE  STOPP 

 1EDM  

NST0P=1 

 GO  TO  110  

C  X  X  X   END  OF   FILES  USED  AS  TAPE  SEPERATORS 

205  I  F  (  NOTE  •  EQ«  1 )  GQ_T0__108_    

IF( ICHECK.EQ.2)   GO  TO  206 

 GO  TO   100   _ 

206     DO  20  7  KXE=1,25  5 

 1 F  (  NJ  YP  E  .  E Q  .  1 )  _  G0_  TO  9  0 1 2  _ 

READ (I Ti 10 »  END= 203, E R R  =  9 00 3 )   CREC ( K X E ) 
 GO  TO  _207   _  _  _ 

9012  READ(  IT  ,99,  END~=2  03  ,  ERR  =90 1 3  )   CTRA(KXE)  ,CREC(KXE) 
 GO  TO  207  

9013  RE  AD  ( I  T  » 99  ,  EN  0=203")   CTRA  (  KXE  )  ,  CREC  (  KXE ) 
_jGO  TO  207 

9003     READ (  IT , 10, END  =  203)   CREC ( KXE ) 

207_    CONTINUE   *  

MAXN0=2  55 

 KB=1  ^   _   

NST0RE=1 

 Jf_I     _  __ 

GO  TO  110 

C  X  X  X  BRANCH  ON   END  OF  FILE  FROM  EOF  SEPERATCRS 
203  NPEXT=1 

 GOlJO^OO   

C  X  X  X  X  X  X  X  X  X  READ  END  OF   FILE   BRANCH  ON   (ICHECK  ROUT  I 


*0 


C  NE  READ)  .  .  

201  NST0P=0 

 ZQ2  N£H£CKfLl    __  

NST0RE=0 

 NQTE  =  1   .  

GG  TO  118 

110  RETURN  

END 

 SUBROUTINE  PJRECIP  

LOGICAL*!  QUT2<6) , AC  AR  D ( 80 ) 

  _    COMMON  QUT2,ACARD  _   

C0MM0N/BLK1/STYPE(99~9)  ,AREC(257)  , CREC ( 2 57 ) , A TRA ( 2 57 )  ,C 

 1TRA(257),       GAGE ( 3 ) , GAG ( 3 ) , NSDTE ( 999 , 3 ) ,  NCATEJ  257,5)  

COMMON/ BLK2 /J , I , L ,NS TGP , NCHECK , NSTCRE , I STCP  E » I  CHECK ,  NI 

 1_CE_,  NWSH  ,  KSEQ  ,  NSEQ ,  NOTE  ,_M  I  AC  ,  N S  K I  P ,  N  L I S  T ,  N  P  F  G , 

2N0PT,NCPT,NTPT,NTYPE  ,  NX  ,  KB ,  I  X ,  MAX~NO ,  I  ECF , NOECF , NCCD ,  IT 

 3,KT,NST  ART  ,  LDATA  t_ELE  R _E  f_t  NSC,  Y\ACC  ,  A  C  Cj  NTRACE,ABASE,NSNO 

4W, INDEX, NGO, NEED, NUT, ATR EC, BTR EC, ITIC  ,NCST, 

 5NTINT,LTINT  jNOR  M_,JL  H  EC^D  R_E^C_,  NJ  I_C  lA  D  Iff  ,  N  F  I R  S  T  ,  NR  E  F  E ,  N  P I 

6L 

 _C 0 M_M ON  / BLK3/NHljN Y22,N M I N  ,J Y R,MJ11NM1,_NY21NM0NTH,IHR,N 

ID 1 , AR Dl , NH2 , NDA Y , I MC , I KnYn  Y 1 1 , MT2 , NM2 , N YE  AR , I  DA , NY1 , ND 

 22,ARD2,NH0UR,NYE,NYXX,      ITMO  ,_  I_TDA  LI T  YR  t  I THR  ,  I TMN ,  GR  EF 

3MASH,NDEX,KTM0,KTDA,KTY,KTYR, KTHR,     KTMN , NSTARE , I Y , ARE 

4D,MTINT,IWID    

C0MM0N/BLK4/LLL ( 12) /BLK5/TR( 2) 

 IF(NICE«EQ.  1)    G0_T0_229  _  

WRITE (6, 201) 

201     FORMAT  (  26Zj_'  GAGEJ  ,  7 X  ,  •  MONTH     DAY  _  _  YEAR  •  ,  4X  , 

3'TIME  TRACE       PRECIP  DEPTH       TYPE     PRECIP       CGDE ' / 

126X,'    NO. ' , 27X, 'HR       MIN   FOR  INTERVAL 

2       ACC. '/77X, '( INCHES)  (INCHES)'/) 
_C  X  X  X__X_X  X  X_X  X_  WRITE   BEGINNING  DATE   TIME  GAGE  HEIGHT  IF 
C  THE  FIRST 

JL_X_X  _X  _X  X  X  X  X__X_  READING^  OF  A  PA PER_  TAPE 
BRD1=ARD1*10.6 

 WRITE  (6,46)    MJ1  ,ND  l^N IY11  _,_NY  1 ,  NH1  ,NM1  »  B  R  0 1  _  _ 

46  F0RMAT(37X, 'PAPER  TAPE  BEGINNING  DATE , T I  ME , READ  I NG= ' , I 
 12,_'  /_L*J_2j  •/_!_»  212^3X^2^12,2X^4.1/) 

C  X  X  X  X  X  X  X  X  X  ROUTINE  TO  EDIT  GUT  EXTRANEOUS  READINGS, 

C_  WRITE  JO  N  _M A  G 

NTIC=0 

 NSNQW=0    

IFU.EQ.l  )   GO  TO"  31 1" 

 1  =  3    _  

GO  TO  306  " 
229  1=1 

306  I F ( N STARE . E Q  . 1 J   GO  TO  3 07 

 ABAS  E= AREC ( I)  

307  I F ( NTRACE. EQ. 1 )    GO  TO  350 
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c  .  

c 

C  X  X  X  X  X  X  X__  JR_ACE_JDU_T  ROUTINE  

IF  (  AR  EC  ( I ). LE .ABASE )   GO  TO  313 
 _KLX=I±1  

njge~=i 

 if(kix.eq.j)  go  to  400    

i f ( arec  < k ix ) • eq . abase j  go  to"  401 " 

_  400  _adiff=arec(  d-abase    _  

if ( aoiff.gt  .g re f  )  go  to  3 1 3 
310  _i  fj  nsno  w .  e_0  . 1)  go  to  309  

MASH=1 

316  _D0  317   IND£X=1 ,NSC  

IF (NO ATE (1 , 1 J  .  EQ. NSDTE ( INDEX , 1) • A  NO •   ND  AT  E ( I , 2  J •EQ.NSD 
1TE(  INDEX, 2)  .AND.  NDATE  (  I_,  3_)  •  EQ  .NSDTE  j  INDEX  »3  )  )G0  TO  315 

317  CONTINUE 

 __NSNOW^O    

GO  TO  (309, 313) , MASH 
3J?9  _DR„E^r  A_REC  (JJ-ABASE___     

"  a"cc=acc+drec' 

 TR ACE  =  TR <_1 )  _  

IF( IX.LT. 12  )   GO  TO  328 

 WRIJE(A»329)   

329     FORMAT ( 1H  ) 

 IF(NSKIP.EQ.l )   GO  TO  4000  

'  LX= 1-1 

 TYPE_=_TR11_)_     

1F( LX.EQ.O)   GO  TO   392  " 

KTMO=ND AT  E ( LX  ,1 ) 

KTDA= NDATE ( LX , 2 ) 
  KTYRj=  NDATE  (  LX » 3 )  _____  

kthr=nda¥e( LX, 4) 

KTMN=ND ATE ( LX,5) 
KTX=NY11 
392     AKTC  =  ACC-DR  EC 

WR ITE (6 , 27 ) GAGE , KTMC » Kf DA  ,KTY , KTYR , KTHR , KTMN , TR AC E , AT R 

LcC,__TYPE,  AKTCXNCCD  _   

WRITE (KT )  IW ID, G A G E , K f MO , K TO A, KTY,K T Y R , KTHR , K TMN , TRACE , 

 JATRECTYPE,  NCOD 

KSEQ=KSEQ+ 1 
GO  TO  328 
32  8     TYPE=TR( 1) 

 ^IF(^ISNOW.EQ.l)  _TYPE  =  STYPE  (  NDEX  ) 

IF { NSKI P. EQ. 1 )   GO  TO  4000 
_     WRITE (6,27 )   GAGE, (NDATE( I ,M) ,M=1,2) , NY1 1 ,( NDATE ( I , N ) , N 
1  =  3, 5 ) , T RACE"  , DR  EC , TYPE, ACC , NCOD 
27       F0RMAT(23X,    3A4 , 3X , I  2 , 4X , 1 2 , 4X , 2 1  2 , 3X  ,  I  2 , 3X  ,  1 2 , 5X , A 1 , 7 
IX , F 5.1 , 9X , A  1 , 4X , F 5 . 1 , 4 X , I  4 ) 
WpJJ_EJKTi_IWID,GAGE,  (  NDATE (  I_,  M )  , M=l ,  2  )  , N Y 1 1 ,  (  NDATE  (  I_,N 
"I )  ,  N  =  3  ,5  ft  T  RACE ,  DR  EC  ,  T  Y  P  E  ,  NC  0  D 
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  KSEQ=KSEQ+1  

4000   IF(NDATE( 1,4) .EQ.24)  NSN0W=0 

 NJE£D_1  .    

NTIC=0 

 nic=n  

ABASE=AREC( I } 

 moszQ.  

I  x=o 

 NUT  =1   _ 

GO  TO  312 

401     ABASE=AR£CC KIX)  

I  =  KIX 

 .  IFINJOE.EQ.2)   GO  TO  403    . 

GO  TO  313 

315  NSNOW=l    

N0EX= INDEX 

 GQ  JQ__(_309,  313)  ,„1ASH  

C 

CXXXXXXX  JOINING  OF  IF  ACE  AND  NG_IRA_CE_  ROUTINES 
C 

31 3     I  X=  I X_+_l_   

I F  <  NDAT  E ( It  41 .EQ.24)  NSNOW=0 
312     IFJJ_.JLQ  _LL  GO  TO  311  

1  =  1+1 

 GO  TO  307  _  

C 

C  X  X_X_X  X_TRACE_IN  ROUTLNE     _  _____ 

C 

350     I  F  {  AR.EC  n  J  •  G_T  •  ABASE  )  G0_1G_351  

403     IF( ISTORE.EQ.il   GO  TO  352 
 IF  (  ATRA<  I  ),.,NS.8.0)  GO  TO  354  

360     I  STORE* 1 

 ITMO=NDATE(  I,  1J  

ITDA=NDAT E (  1,2) 

 I_TYR=JvJDAT  E  {  1,3)    

I THR=NDATE( 1,4) 
 I TMN=ND ATE ( I , 5)   

355"     I  TI  C=  1 

 IF(NS N OW .  E Q jj.  I  GO  TO  3 13  

MASH=2 

 GJD_T_P  316   

354  ITIC=0 

 :  LLL__E9_ ejk  iLML_L=_TK+i   

IF (NTIC.lt. 12)   GO  TO  313 

 NEED=0   _  

NTIC=0 

 GO  TO  313  

364  KSEQ=KSEQ*1 

_4 001   ISTORE  =  0  

ITIC=6 
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NTIC=0  

IX-0 

 NUT=1    

IF(NGO.EQ.l)   GO  TO  310 

 GQ__TO_  313  

352     IF  ( NE6D.EQ. 1)   GO  TO  365 

 IF(  IT  IC.EQ .12  )   GO  TO  366  

ITIC=ITIC+1 

 GO  TO  313   

365  IF(NTIC.GE. 12 )   GO  TO  390 

  NTIC=NTIC+1  

GO  TO  313 

390__  NEED=0  

" ISTQRE=0 

NTIOO  

ITIC=0 

_  G0___I0_313_   

366  IF(NSNOW.NE.O)    GO  TO  367 

 IF  UTRAUJ.EQ.8.  )   GJj_J_0_3 60____  _   

ISTORE=0 

__  itic_o   

GO  TO  313 

367  IFtNDATE(  I,4)«N£«24J   GO  TO  355  

acc=acc+atre"c 

_  iFiNSKlP,EQ.l__GO  T0_4001  

"~      WR I  TS  ( 6,329 ) 

_WRITE  (6_27_)  _GAGEt  ITMO,JTDA_fNY  _lf  _TYR»  ITHRf  ITMNt  TR(2)  »A 
1TREC, STYPE(NGEX) ,ACC,NCOD 

 WPITE(KT)_  I  W I D »  G  AGE , I T  MO » IT0A,NY11, I TYR , I THR , I TMN, TR( 2 

1  T»  BTRECi STYPE (NDEX) , NCOD " 

„_N_SNOW  =  0   _    

GO  "TO  364 

351     KIX=I+1  _   

NJ0E=2 

IF(_KIX__EQ.J  J_GO  TO  402 
I F ( AREC (KIX).EO. ABASE)   GO  TO  401 
40 2_  J^DJL£F  =  ARECm-ABASE_ 

I F ( AO  I  F  F . GT • G R E  F )   GO  TO  3  66 
_TRACE  =  TP  (_2) 
T YPE=TR ( 1 ) 

 IF<  NSNCW.EQ. 1 )    TYPE  =  STYPE(NDEXJ 

I F ( NEED.EQ.  1) "GO  TO  391 

 IF{ ISTORE.EQ.l)   GO  TO  370^  __   

ITIC=0 
_G0  TO  310  _ 
370     WRITE (6,329) 
ACC=ACC+ATREC 
I  F ( NSKI  pVeQ.I )   GO  TO  371 
_^AIJE(_6f27)    GAGE,  I TMO , I TD A LNY 1 1 , I T YR , I THR , I TMN ,  TRACE,  A 
1 T R EC,  TYPE       ACC  ,NCOD 
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 mJJLLi&Il-lMlSltSy&£il  IMO-t-lTP A ,  NjaitllY-Rj.! Jb&t  LTMdrlBAC  

IE , BTREC  »  TYPE , NCOD 

_3I1  MQsZl  :    

IF(NSKIP.EQ.l)   GO  TO  4001 

 GO  TO  364    

391  NGO=l 

 GO  TO  4001  

368       IF ( I  STORE .EQ. 1 )   GO  TO  352 

 G0__T0_313  

311     KTMO=NDATE ( J ,  1 ) 

 KTDA=NDATE( J,2)    

KT Y=NY1 1 

.  !iIXL^NDAT_E_(_J1_3]  

KTHR=NDATE( J, 4) 
 KTMN=NDATE(  J,  5)    _   

RETURN 

 END    

SUBROUTINE   RUNOFF  ... 

 JLOG ICAL*1  QUT2( 6) ,ACARD( 8 0_).    .  ____ 

COMMON  0UT2,AC~ARD 

 COilMOJi  /  BL  K 1  /S  T  YPJ1 9  99_)_tAR_EC  (257  )  ,CREC  ( 2  57  )  ,  A  TP  A  <  2  57  >  ,  C 

1TRA(2  57~)  ,       GAGE (3) ,GAG(3) ,  NSDTE ( 999 ,3 ) , NDATE ( 257 , 5 ) 

 COMMON/  BLK2  /  J  LI  i_L  tN S TOP j NCH  EC  K  i  N S TOR  Ej.  I  S T 0 R  E  ,  I C  H E CK ,  N I 

ICE f  NWSH  »  KSEQ, NSEQ, NOTE ,M I AC »  NSKI P , NL I  ST »  NPFG , 

 2N0PT  lNC  P  Tj  NT PJjl  NTYP  E_t  N  X  j_K  B ,_  I  X ,  M  A  X  N  Oj.  IE  L  F  ,_N  0  E  C  F  ,  N  C  0  D ,  I T 

3 , KT , N  S  f  AR  T , LD A  T A , E  L  E  R E F , N  SC ,  YACC , ACC , NTRACE , ABASE , NSNO 

 4W  i  I  NJ3EX  f_NGO ,  N  EED  ,  NUT  , A TR E C , BT REC  ,  I T I C  ,  NDST  , 

5NT I NT » L TINT  i NORM »  LHEC  »  OPEC  t  NT IC  t  ACI FF  »NF I RST  f  NP  EFE  t  NP I 

 6L   _  _ 

COMMON/  BLK3  /  NH1 ,  NY22  »  NM  IN  1 1 YR  t  MT 1 1 NM 1 ,  NY2  t  NMCNTH 1 1  HP,  f  N 

 1D1 , ARD1 ,  NH 2  LN D A Y jj MO jJJMNj  N Y 1 1  j _MT 2^  N  M  2  ,  N  Y  E  A  R  ,  I D  A  ,  N  Y 1 ,  N  D 

22 , ARD2  f  NHOUR , NYE ,N YXX ,      I TMO , I TDA , I T YR , I THR  ,  I TMN , GRE F , 
_3_MASH_»_N^EX  ,KTMO,KTDA,KTY,KTYR,KTHR,     KTMN , NST ARE , I Y , ARE 
40 , MT  I  NT , I W  I D 

 COMM ON/ BLK4/LLL ( 12 ) /B  L  K  5 / T  R { 2 ) 

iFCNICE.EQ. 1)    GO  fo  229 

 LJJM  zl    

WRITE  (6, 12") 

_  12       FORMAT (26X,  'GAGE' , 7X, 1  MONTH     OAY       YEAR • » 4  X » 

2'TIME  TIME     DISCHARGE     DEPTH       CODE  »/26X»  •  NC',2 

.  17X,'HR       MIN     _INJR     TABLE  NO,  (FT)'/) 

CXXXXXXXX  X  WRITE   BEGINNING  DATE   TIME  GAGE  HEIGHT  IF 

C  THE  FIRST   _  _   

C  X  X  X  X  X  X  X"  X  X  READING  OF  A   PAPER   TAP E 

 mi  T EJ 6  ,_4 6 J  _G A G E j  M T 1  , ND1»  NY  1 1,NY1,NH1,NM1,ARD1,NCCD 

46       FORMAT  (  2X  ,  »  BEGIN  OF   TAPE   LABEL  =  ~        3  A4  ,  3X  ,  I  2  ,  4X  ,  I  2 ,  4X , 

 1212,  3  X  ,^  2  3J^,  I  2,21  X  ,  F  6  .  2  , 4  X  ,  I  4  /  ) 

C     TESTING  BEGINNING  NUMBER  OF  AR  EC ( J  *  S) 

 1  F ( NSTART • EQ. 0)   GO  TO _230  

I F ( NDATE ( 1 1 1) -EQ. NDATE (257,1) * AND* NDATE ( 1 ,  2 )  .  EQ  .  N OA 1 6 ( 
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 1257,2).AND.NDATE(1.3)_EQ.NDAT£<257,3).AND.NDATECl_4).e 

2Q-NDATE(257»4).AND.NDATE(1,5).EQ.N0ATE(257,5J)   GO  TO  2 

 331      

GO  TO  229 

231     AREC(  U=AREC(  256)         _  _  _   

DO  298  M=l, 5 

298     NQATE( 1 ,M) =NPATE ( 256 , M)       

NSTART=0 

 GO.  TO_229    _      _    _  ___ 

230  1=1 

 K^2      

N  T I N  T  =  1 

 G0_  TO  18   _  _     

'""229  ~NTI~NT=NTINT  +  l" 

  _____        

K=2 

_    C  X_  X  X_X  X_  X  X  X  X_POUTINE_  TO_EDI_T  OUT  EXTRANECUS  READJNGS, 
C  WRITE  ON  MAG 

18_     I  FJ  N SJARJ" «E Q •  1 )   GO_JO  J7__       

f 9  '     I  F  (AR  EC  ( I  )  •  GTVGRE  F )   AREC(  1  )«0"«0 
_IF  ( ARECJ_KJ.GT,GREFJ  ARECU)=Oj.O 
I  F  (  ( AR  EC ( I  i • EQ«  AREC ( K ) )  .AND. ( NDATE (  K  » 4  )  .NE.24) )    GO  TO 

  125      

IF( NSKIP.EQ.l )   GO  TO  4000 

 24  I£ikUNT.EQ.ll_G_g  TO  4003_  „__„    

4005  IF(  NLISTTeQ  .0)   G0~"  f  0~3~o6" 

  _J?/_RIJ  J_  *  6  ,  27 )    _GA_GEi_(  NDATE (  I  ,M)  ,M=1 ,2  )  ,NY11 ,  ( NDATE {  I  ,N)  , 

1N=3»  5 ) i NTINTf  NDST  t AREC ( I J ,NCGb 
27       F0RMAT(23X,    3A4 ,  3X_,  I  2_,  4X ,  I2_»4X  ,21 2  f  3X ,  I  2  f  3X 1 1 2,4X  ,  13  f7 

IX, 1 i,6X,F6.2,4X, 14) 
_300__  WRIJEiKT)    I WI D  » GAGE  t ( NDATE ( I  ,  M ) »  M  =  l » 2  )  » N Y 1 1 ,  ( NCAT  E(  I,N 
1) f N-3f  5) t  NT  INT , NDST , AR  EC ( I ) ,NCGD 
_  KSEO=KSEO+1 
MT I  NT  =  NTI NT 

4000  L=I   

NUT=1 

  45  1__LK     _____     

NT  I NT  =  0 
25       IFU.EQ.J)   GO  TO  23 
NT  I NT  =  NTI NT  +  1 
K  =  K+1 
"GO  TO  19 

 40P_3_  WRITE  (6_,  400  4  J  GAGE,  (NDATEJ  I  f.M_i,_M  =  l±2  )  ,  NY1 1 ,(  NDATE  (  I  ,NJ_, 

"  1N=3,"5)  ,  NT  IN T , ND  S T » A  R EC  ( 1 1  » NCOD 
4004  FORMAT (  IX,  1  FIRST  RECORD  ON  MAG  .=         3 A4  ,  3 X , I  2 , 4X , 1 2 , 4X 
1,2  12,  3  X , I  2 , 3  X , 12 , 4 X , 13 , 7  X , 1 1 , 6  X , F  6 . 2 , 4  X , 1 4 / ) 

  _       LTI NT=0  _ 

GO  TO  4  00  5 

 C  X  X_X_X__X__X  X  A_X_J_°J_IINE   USED  AFTER  FIRST  TIME   THRU  (NSTA 

C RT  =  1 } 


46 


 17       IFtARECd  l.GT.GREF)  AREC(I)=0.0  

IF ( AREC( I ). EQ.AREC(256) .AND.NDATE ( I ,4) .NE.24)   GO  TO  70 

 IF(LTINT.EQ.l)   GO  TO  4006      

4007  IF(NSKIP.EQ.l )   GO  TO  4001 

 _LFJ NL  |$T.SQ.O)  GO  TO  305  

WRITE (6, 27)     GAGE, ( NDATE ( 256 , Ml f M=l , 2 ) ,NYXX , ( NDATE ( 2  56 

 1,N) ,N=3,  5)«NTINT.NDST,AREC(256) tNCOD   ,  

30  5     WRITE  (KT)    I  WI  D ,  GAGE  ,  (  NDATE  (  2 56 ,  M  )  ,  M-  1 ',  2  )  ,  NYXX ,  I 1  NDATE  ( 12 

 _J,56«N1j_N*3-±-  _.5J .» NT  INI  i_NDST_»  AR  EC  („.2^6_).  iNCQP    

KSEQ=KSEQ>1 

JMT I  NT  =  NII  NT  _       

4001  NT I NT- 1 

 Lf256    „    

NUT  =  1 

 _  _..G0_TO.JL9          _  „.._.., 

4006  WRITE (6,4004) GAGE, < NDATE ( 256 ,M) ,M=1,2) ,NYXX, (NDATE (2 56 

  1  f_N bNf  3 ,  __  5J  t  NTINT_»N. QS T  L AJ*EC_U  5 6 ). iNCO D   _  

LTINT-0 

 GO   TO  4007_  „  

70       AREC  ( I ) =  AREC ( 2  56) 

D0_75  M=l,5  _   

NDATE ( I ,M)=NDATE(256,M) 

___75    .CONTINUE    _       _  _      

NT  I NT  =  NT I  NT  +  1 

   GO  JQ„U   _  .  -  -     

23       NSTART=  1 

  _  I FXNXH E CJU E Q.  0 ) .  GO  TO  .55  .  .„.  

IF(NSTOP.EQ. l.GR.NWSH.EQ. 1 )  NSTART=0 

IFt  (NSTOP.EQ.l)  .OR.  (NWSH.EQ.  UXGP  T0_  95 

IFtNCOD.EQ. 1000. AND. LD ATA. EQ.O)   GO  TO  800 

JXLMQOD .  G  E  .00 10  .A  N  D  .NCOD. LT. 00  5  OX.  NSTART«0    

IF(NCOD.GT.i 000. AND.NCOD.LT. 10 5 6)  N S T A R T  =  0 
I  FJ  NCOD. GE. 01 00. AND. NCOD. LE. 01 16)  NSTART  =  0 
IF( NCOD.GE. 11 00. AND.NCCD.LE.il 16)  NSTAR  T  =  0 
IF(_NC0D.GE.Q116.AND.NCCD.LE.0132J  NSTART  =  0 
IF (NCOD.GE. 11 18.  AND.NCCD.LE.il 32)   NSTAR T=0 

 IFJ  NCQD^GX*  0133 .  AND.  NCOD.  LE  .0199)  __NSTAR_T  =  0 

I F ( NCQD.GT. 1133 .AND. NCOD. LE • 1199  )   NSTAR T  =  6 

 IF ( LDATA. NE  .jO )   NSTART  =  0 

IF(NSTART.EO.O)    GO  TO  95 

_        GO  TO  800  _   

95        I  F (  NT  INT. EQ .6 )   GO  TO  21 
_IF(NSKIP.EQ.1_)   GO  T0_  4002 
IF ( L f I NT •  E  Q  .  1 )   GO  TO  4008 
4009   IF(NLIST.EQ.O)   GO  TO  42  __ 

WRITE (6,27)      GAGE ,  ( NDATE ( I , MJ ,M  =  1,2) ,NY11  ,  (  N  D  A  T  E  (  I,N)  , 
1N  =  3|_5)  , NTINT»NDST,AREC(  I  )  ,NCOD  __ 
42       WRITE (KT)    I WI D , GAGE , ( NDATE ( I ?  M) ,M=1 ,2 ) ,NY11 , ( NDATE ( I , N 

 1)  ,N=3,5)  ,NTI_NT,NDST,  ARECJJ  L»NC0D 

kSEQ=KSEQ+T 
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 MTINT-NTINT  ,  

4002  L=I 

_  NUI=1  

GO  TO  21 

m008.WRI  T.E  (  6  ,  40.04  J  GAGE  ,  (  NOATE  II, Hi  ,M=1 ,2  )  .  NYU  .  (  NCAT E  (  I ,  N .)  , 

1N=3  f  5 J  » NT INTf  NDSTt AREC ( I ) ,NCOD 
 Ljn  nt=o  .  .  

GO   TO  4009 


800  DO  801  MrJ._f_5 


801 

NDATE(257,M)=N0ATE(J,M) 

I F ( AREC ( J ) • GT .GREF )  AREC(J)=0.0 

 .  

ARtCl 257)=AREC(J ) 

 _55__ 

DO   36  M=l,5 

NDATE(256,M)=NDATE( I  ,  M ) 

36 

C0NT I NUE 

NYXX=NY1  1 

AREC ( 256) =  AREC ( I ) 

2 1 

N  I  L  t  =  1 

D  CTI  ID  M 

K  b 1  UK  N 



r*  M  rs 

END 

CI  inoni  IT  T  MC    Am  ICCD 

 , 

L0GICAL*1   0UT2 ( 6 ) , AC ARD ( 80 ) 

COMMON  0UT2»ACARD 

C0MMGN/BLK1/SIYPE{999) »  AREC  t  257  J »CRECl257) »ATRA(257)  tC 

1TRA ( 2  57  ) ,        GAGc ( 3 )  , GAG ( 3 ) ,NSDTE(999,3) ,NCATE(257,5) 



C0MM0N/8LK2/J»I»L»NSTGP»NCHECK,NST0RE,IST0RE,ICHECK,NI 

ICE,  NWSH,KSEQ»NSEQ»NOTE»MIAC»NSKIP,NLISTtNPFG» 

ZNUPI  f  NCr  1  » N  I  r  1  »NIYPb»NX,KB»  I  X  iMAXNU  j  lbur»NUbljr»NLUD»  1  1 

— .  

3 1 KT t  NSTAR T , LDATAf  ELEREFfNSCt Y  ACC  f  ACC  t  NTRACE  t ABAS E  t NSNO 

4W»INDEXtNG0fNEt:DfNUT»ATRfcC,DTREC,ITIC  fNDST» 



5NT INT  t  LTIM  » NORM  » LHEC  t DREC  » NT IC  t  AD I FF» Nr IKST  » NR tret  NP I 

6L 

COMMuN/BL Kj/NH 1 »  NY22  t NM IN  1 1 YR  f  MT 1 »NM 1 f  NY2  » NMGNTH  f I HR  t N 



1D1 »  ARD1 f  NH2  f  NDAY* IMO  f IMNf  NYl 1 »  MT2  t  NM2 i NYc AR  » I  DA  t  NYl f  ND 

22tARD2t  NHOU  R»NYb»NYXXt      1  1  nu»  I  I  DA  »  I  i  YK  i  1  1  HK  »  I  1  Mi\i  (jKtr» 

3MASH,NDEX  ,  KTM0 ,  KTDA  ,  KT  Y ,  KT  YR  >"KTHR  ,     K  TMN  ,  NST  ARE  ,  I  Y  ♦  ARE 

4D,MTINTf IWIC 

COMMON/ BLK4/LLL { 12)/BLK5/TR(2) 

LLPAS=0 

NRE  FE  =  0 

DO  21   1=1, J 

I F ( AREC ( I ).GT.GREF)  AREC(I)=0.0 

IF( ELEREF.EQ.0.0)   GO  TO  21 

AREC ( I )=ELEREF-AREC( I ) 

21 

CONTINUE 

ARD3= ARD1 

IFiARDl^GT.GREF)   ARD 1=0.0 
I F ( ARD2 .GT • GREF )   ARD 2=0.0 
If_Li_L  &  R  E  F  ^E_0_.  0  .  0  )  _  GjD  J"  0  2  0 
ARD1=ELEREF-ARD1 
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 f^£F£=l  

20       IF< NF IRST.EQ.O)   GO  TO  2 

 ^J.E_(AU^__£LERLFJA_RDJi  

17       F0RMAT(9Xt • ELEVATION  R EFE R ENC E= * , F 8 . 2 , ■      BEGIN  GAGE  HE 

 1IGHT=»  t_F6 . 2J  

WRITE (6, 1)   GAGE,MT1,ND1,NY11,NY1,NH1 , NM1 , NRE FE , ARD1 , NC 

 IQQ  .  .  

1         FORMAT ( 34X,  'GAGE  MO  DAY  YEAR     TIME     NRE  FE     GAGE  D 

.  1EP.H.     CODE '  //9.X,  '  BEGIN  OF.  TAP E  ..LABEL  =   V,  .3  A4 ,  2X ,  I  2 ,.  1 X  t 
2I2,2X,2I2,2X,2I2,3X,I1,6X,F8.2,3X,I4//) 

__2  1  =  0  

3  1=1+1 

_jt_^o=N.Pjyj_LLi-ll  

LMD=NOATE( I ,2) 

 LYR^NDATE  (  1 1 3  J  .  

LHR=NOATE (1,4) 

 LMN.=  NOATELI.»J)  .    

AAREC=AREC ( I ) 

 I^U^N^EQ.JO.OR.LMN^Q^OOl  GO  _T0_6_    

I F {  I  . EQ  .  J  )    GO  TO  15 
 GO  TO  3  .  

6  IF( I.EQ.J)   GO  TO  8 

5         IF(NFIRST.EQ.O)   GO  TO  9  

WRITE (6, 7}   GAGE, LMO, LMD, N Yl 1 ,LYR, LHP, LMN, NRE FE, AAREC,N 
 JLCOD  

7  FORMAT! 8X»  *  FIRST  RECORD  ON  MAG. =  •  ,  3A4,2X,I2»1X,I2»2X 
 1,2I2,.2X,  21 2  ,3X,  1 1,6X  ,  F8 . 2 , 3X, 14// )  

9         IF( NLIST.EQ.O )   GO  TO  11 

__     WRI  TE  (  6,  ljDJ_  GAG  E  ,  L  MO  ,  LMD  s  N  Y  1 1  ,  L_Y  R  ,  L  H  Rj  LP  N  t  N  R  E  F_E  ,  A  A  R  E  C  , 
1NC0D 

__1Q  FORMA TL3 0 X j_  3A4 ,2X,I2,1X,I2,2X,2I2,2X,2I2  t3XJUt6X_LF 8, 

12, 3X, 14) 

_  11       IFJNlSKIP.EjQ.l )   GO  TO  13  _  _  _   

12  WRITE  (  KT  j      I W I  D  ,  GAGE  ,  LMO  ,  LMD  ,  NY1 1 , LYR  ,  LHR  , LMN ,  NREFE ,  A. A 
_     _  1REC,NC0D,TR(1)         _     _ 

NUT  =  1 

   KSEQ=KSEQ+1  

13  NFIRST=0 

_   ND.ATE(2  57,L)_=LMC    _   

NO ATE  C  257> 2  3  =LMD 
 NDATE(257,3)=LYR 

N0ATE(257,4)=LHR 
 N  DATE (257,5  ) =  LMN  

AREC(257)=AAREC 

IF(LLPAS.EQ.l)   GO  TO  15   ^  

GO  TO  3 

_  6_        IF(  NCH EC K .JEQ . 0 ) _G  0  TO  18   

I F ( NCOD . EQ.  1000 . AND, LD ATA .EQ .0)   GO  TO  15 

 NERROR  =  0  

IFOMCOD. GE.0010.AND.NCGD.LT. 0050)   NERRCR= 1 
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I  F(  NCOD.GT.  1QQO.AND.NCOD.lt.  10 50)  NEP RO R  =_1 
IF( NC00.GE.0100.AND.NC0D.LE.0116)  NERRC~R  =  1 
If  (NCOD _SLGE  ._11  OO.AND.NCOD.LE.  Ill  6)  N  £  R  R  0  R=  1 
I F ( NCOD . GE . 01 18 . AND. NCOD. LE .0 132 J  NERRGR=1 
J FJ NCOD .GE. 11 16. AND . NCOD. LE .11 32±  _NE RRCR=1 


I F( NCOD.GT. CI  33. AND. NCOD. LE. 0199)  NERRCR  =  1 
IF( NCOD.GT. 1 133. AND. NCOD. LE. 1199)  NERR0R=1 


 •  <   « 

IF ( LDATA.NE .0)   NE  RROR= 1 

i  c  i  mcddod    en    a  i    r  n    Tn    i  c: 
1 r I NtKKUK. t U • U J    OU    1 U  15 

1  o 

1   1   D  A  C  —  1 

(jU    1  U  5 



i  D 

MC  ICC  T—  n 
CCTIIDM 





END 

SUBROUTINE  OUTPUT 

c  x~ 

XXXXXXXX  WRITE   INFORMATION  ABOUT   THE  PAPER  TAPE 
L0GICAL*1  QUT2C 6) t ACARD<80) 

COMMON  0UT2 , ACARD 

C0MM0N/BLK1/STYPE(999) , AP EC ( 2 57 ) , CREC ( 2 57 ) , ATR A ( 257 ) 

1TRA(257) ,       GAGE (3) ,GAG(3) , NSDTE ( 999 , 3 ) ,NCATE ( 257,5 ) 

C0MM0N/BLK2/J , I , L , NSTOP , NCHEC K , NSTORE , I  STORE , IC HECK , 

NI 

ICE,                    NWSH,KSEQ,NSEQ,NCTE  ,MIAC ,NSKI P,NLIST,NPFG, 

2N0PT ,  NCPT»NTPT,  NTYP_E_,ISiX,  KB ,  I  X  ,  MAXNC ,  I  EOF  ,  NO  EOF  ,  NCOD, 

IT 

3,KT  ,NST  ART  ,LD  ATA,  ELE  RE  F,  NSC,  YACCACC,  NT  RACE  ,  ABASE,  NSNO 

 4W, INDEX, NGD , NEED , NUT, ATR EC, BTR EC  ,  I  TIC    ,NDSJ, 

5NT I  NT , L  T I  NT , NOR M , LH EC^  DR EC , NT IC , AD I  FF , N F  I R  S T  ,  N R  E F  E , NP I 

6L    .  

C0MM0N/BLK3/NH1 , NY22 ,NMIN , I YR , MT1 »NM1 ,NY2, NMCNTH, I HR ,  N 
J.D1,  ARD1 ,  NH2_,  NDA  Y  »_IMO  , I MN , NY1 1  ,  MT2 , NM2 , NYE AR , I  DA , NY1 , ND 
22 , ARD2 , NHOU  R , NYE , N YXX ,      I TMO , I TD A , I T  YR , I THR , I f MN , GREF , 

 3MASHj  NDEX  ,  _K_TM_0_,  KTDA^KTY,  K  JY_R_,  KTHR,_    KJMNj  NSTARE,  I Y  ,  ARE 

4D, MT I  NT , I WI D 

 COMMON/ BLK4/LLL ( 12  )  /BLK5/TR  (  2  )   __   

NSEQ=NStO+KS£Q 

IfINTYPE.EQ.lJ_GO  TO  400    _   

I F ( NT YP  E. EQ .2 )   GO  TO  401 

 G0_T0_402     

400     BREC  =  AREC ( J  ) 

BRD2=APD2*1G.0 

WRITE (6,48) NOPT, GAGE ,MT2,ND2,NY22,NY2,NH2,NM2,BRD2, (ND 
_  JLAT E  (  J  »  M  )  ,M=1,2)  , N Y22 ,  (  NDA TE  (  J  ,N  )  , N=3  ,  5 )  ,BREC  ,KSEQ,MI  AC 

2,  NPIL 

__4_8_F_0RMAT  UHO ,.16  X ,  '_END_  0F_  TAPE  NO.  •  » 12  ,  FGP_GAGE-  » 3A4, 
1 •  END  Of  T AP  E  ON"  L  A B  E L  = • , I  2 , ' / • , I  2 , '  /  '  »  2 1 2  »  '  T I  ME- • , 
212,12,'   REAJDING='  , F4. 1/58X, ^END  OF  TAPE  COMPUTED  =SI2 

3,  •/•  ,12, »/«  ,212,  •   TIME=« , 12, 12, •   RE AD ING= • , F4. 1 //28X, ♦ 
4THE  NO.  OF   RECORDS  WRI TTEN= • , 1 5/28X,  •  THE  TOTAL  NO.  OF 
5PUNCHES  FOR     PAPER  TAPE  WAS  COMPUTED  TO  BE= •  ,  I  5 , '  PUNC 
J>H  JJ1TE_R_VAL=  • , \in__  _  

YACC=YACC+ACC 
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  IF(NW SH.EQ.O)  GO  JSL.A53  

WRITE(6,452)  YACC 

_  _45_2__£CLRMATJ  28 X___TQJA L_.J>RECi  PI LAXI  CN_.FC.R_  .GAGE  =  *  t  F 5*1/1  

453     IF(NUT.EQ.O)    GO  TO  449 
 _GO._I_L__.5_Q  

401  IF(NUT.EQ.O)   GO  TO  449 

 WRITE (6,54) GAGE , ( NDATEC l , M _ , M=l ,21 , NY22, < NOATE ( t , MM ) , M  

1M=3, 5) ,  MT INT , NDST , AREC ( L ) »NCCD 

_  54  _    FORMAT  (»  0',2X,'LAST   RECCR  D.GN  MAG=  J  ,    3  A4 , 3  X  ,  12  ,4X,.I2,  

14X, 212, 3         X,I2,3X, 1 2 , 4X , I  3 , 7X , 1 1 , 6X , F 6. 2 ,4X , 14// } 

 NUI==0    

550     WRITE (6, 50) NOPT, GAGE ,  MT2 , NC2 , NY22 ,NY2 ,  NH2 , NM2 , A RD2 ,  (  ND 

 1  ATE  (  J  ,J_1  _M=  1__2 )  ,NY22,  (  N.DATEU.N  L,_N=_3 ,  5  )__A_R EC .( J_)_  t  KSEQ  ,  N  

2SEQ , MI  AC  »  NP  IL 

50       FORMAT ( 3X, » END_OF  TAPE  NO  .  •  r  I  2_  *  ,  FOR  GAGE- •  __  3A4 ,  •  EN 
ID  OF   TAPE  ON  LAB EL=  ' , 1 2 , 1 / ■ , 1 2 , ■ / » , 2 'i 2 , •   TI ME= ■ , 12 , 1  2, 

 21  PEA_DING  =  L,F6.2/44X,JEND  .CF__TAj_E__COyPUTEC=«  ,12,  '/'  ,  12 

3,'/,,2I2,  •    TIME-' v I2t 12 9*    READ  I NG= ■ , F6. 2/44X , 'THE  NO, 

40F  RECORDS  WR I TT EN=  '  , I  5// 1 2X ,  '  TOTAL   RECORCS  WRITTEN  ON  

5  MAG.   TAPE   SINCE  BEGINNIKG= • , I6//28X, • THE  TCTAL  NO.  OF 

6_PUNCHE_S_  FOR  PAPER  TAPEJWAS  CCMPL_TED_TC  BE=»  ,15,  1  PUNC  

7H  INTERVAL* ' , 12/) 
 G_0.J-O_450  

449  WRITE. 6, 555) 

 555  FORM^AT(  12Xj^Np  RECORDS  WRITTEN  ON  TAPE  FCR  THIS_PAPER  

IT AP  E 1 /  ) 

 IF(NTYPE_EQ>2)   GO  TO  550  _   

450  WRITE(fc,49)    0UT2 ,NCOD 

 49  FORMAT (  12X ,  'DATA  FOR   PAPER  TAPE   WRITTEN  ON  TAPE   NO.  ' , 6  _ 

1A1,«,F0R  STORAGE —  THE   ERROR  CODE  FOR  TAPE* ' , 14/// ) 

 IF1NTY_PE_LE.Q.2J_G0  T_0_  3.004   

WRITE (6, 3003)  NSEQ 
_  300_3  FORMAT  ( 12 X,  M  '  ,  16,  '  )  =TOTA L  NO._GF_RECOPCS  WERE  WRITTEN_ 
1  ON  MAGNET.   TAPE  THROUGH  THIS  PCINT  DURING  FIRST  EDIT* 

2//)  

3004  CALL  ERMESG(NCOD) 
 GO  TO  3005  

402  IF(NUT.EO.O)   GO  TO  815  ~ 

_M0N  =  NDATE<_2  57, 1J        _  _ 

NDAE=NDATE( 257,2) 
  NYER=NDATE(  257,3)  

NHU  R=  NO AT  E (  257,4) 
 NIM  =  NDATE(  257,5)  

CTREC  =  AREC .  257~) 

 WRITE  ( 6  ,  JU 4  )   GAG  E,  MC  N^ND  A  E  ,  NY  22 » NYER ,  NHUR-,  N  IM,NREFE,CT 

lRECt NCOD 

8 14  FORM  AT  (  '  0  ' ,  8X  ,  •  LAS  T  R  E_C0R0_  ON  MAG.=   •  ,   3  A  4  , 2  X ,  1 2 , 1 X ,  I  2_ 

1 , 2X, 21 2 ,2X, 212 , 3X  » 1 1 » 6X»  F  8. 2 »  3X, 1 4/ ) 

815     MQ=NDATE  .  J ,  1)    

NDA=NDATE ( J ,2) 
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NYR=NDATE(J,3) 

NHR=NDATE ( J  »4) 

NMN=NDATE ( J  »5 )                                                      .  .   

TTREC=AREC ( J) 

ARD3=ARD2 

IF( ELEREF.EQ.0.0)    GO   TG  817 

ARD3=ELEREF-ARD2 

817 

WRITE(6,816)  ARD2 

.  816 

FGRMAT( 37Xf • ENDING  GAGE  HEIGHT  LABEL  =  ' ,  F8 . 2 / ) 

813 

WRITfc(6»600)   MT 2 » ND2 » NY22 » NY2 ♦   NH2 ? NM2 » ARD3 » MG, NDA * 
12  » NYR  » NHR ,  NMN»TTRECfNCGD,KSEQ,0UT2,NSEQ 

NY2 

600 

FORMATilH   »  36X,  'ENDING  ON   TAPt   L ABEL = * » I  2 » ' - ' » 1 2 » • - 



'  »2 

1I2» AXt2I2t4Xt F8.2/37XT 'END  CF   TAPE  C0MPUTED= * , I 2 , *- 

*  »L 

 . — 

2^  »  '  -  '  »  21^  t'+Xt  21  2  »  4X,  F8.2/37X  t  •  ERROR  CODE  FOR  PAPER 

TAP 

3E-' » I4/37X,  I5»  '-RECORDS  WRITTEN  FOR   PAPER  TAPE'/37X 

jJA_._ 

4EC0RDS  WERE   WRITTEN  ON  NAG.   T APE- ' t 6A 1 / 37X » *  A  TOTAL 

OF 

5  - 1 » 1 5,  ' RECORDS   WERt   WRITTEN  ON   MAG.   AT   THIS  POINT* 

) 

NUT=0 

GO  TO  3004 

3005 

KSE0=0 

IF { LDATA. EQ.O)   GO  TO  30 





DO  5000  NNN=1 » LDATA 



P.EAD(5»3001)  ACARD 



3001 

FORiMATlSOAl) 

WR I TE { 6 » 3002)  ACARD 

3002 

FORMAT ( 28  Xt 80A1 ) 

5000 

CONTINUE 

30  RETURN 


 END   

SUBROUTINE  ERMESG(I) 

C  

C     SUBROUTINE     ERMESG  (REVISED  BY  JAN  C  CARR  10/71) 

(;  A  _M E S S_A G E__I_S  P/^R|NTEp_  FOR_  AN_ERR0_R  CODE    (NCOD)   FOLLOWING  J 

C  HE   EDIT  V 

C_  OF  A_  PAPjER  TAPE,^  DESCRIBING  THE  TYPE  ERROR  THAT  JS  PRESEN 
C  T  FOR  THE 

£_  DATA  STORED     „  _  

C 

C     JNVOKED  BY  ^: :  CALL  ERMESG(NCOD) 

C       WHERE  NCOD   IS  A  VARIABLE   OR  CONSTANT  VALUE  CF  ERROR  CODE 

C      

C     NCOD  MUST   BE   BETWEEN  THE  RANGES  OF   (10  TO  199), (1010  TO  1 

C  199)  x0Rf  „____   

C  (1000  OR  200"6) 

c     _   

c 

_  1 1  =  1 

I F ( I . EQ . 1 00 0 . OR . I . E Q . 2000 )   GO  TO  817 

 IF(  I,GE.10.AND.I,LE«199)   G0_T_0_818  _     

IF(  I. GE. 1010. AND.  I .LE.1199)   GO  TO  819 


52 


818  PRINT  820,1 


820  F0RMAT( 20X,  'ERROR  CODEC1 

,  14, 

•  ) LAST  VALUE   PUNCHED  ON  TA 

1PF    fiflF^   MOT      AftRFF  WTTH 

TRUF 

GAUGF    \/AI  (IF  •  1 

GO  TO  811 

O  1  Q     DDI  MT     C  ?]  .  T 

 P  i.JZ_.   r  IS  1  IN  1  O   

821   FORMAT ( 20X, ' ERROR  C 0 D E (  • 

,  14  , 

')LAST  VALUE  PUNCHED  CN  TA 

1  PF           TRUF    G&CF  VA1UF') 

811   IF ( { I .GE. 10. AND. I .LE.29) 

.OR. 

(I. GE. 1010. AND.  I.LE.1029) ) 

1    GO   TO  401 

IF( ( I.GE.30.AND.I.LE.49) 

•  OR  . 

7l.GE.1030. AND. I .LE.1049) ) 

1    GO   TO  601 

IF< ( I.G6.50.AND.I.LE.79) 

•  CR. 

(I. GE. 1050. AND. I. LE. 1079)) 

1    GO   TO  £>01 

IFUI.GE.80.AND.I.LE.89) 

.OP  . 

(I. GE. 1080. AND. I. LE. 1089) ) 

1  GO  TO  701 

IF( ( I.GE.90.AND.I.LE.99) 

.CR. 

(I.GE. 1090. AND. I.LE.1099) ) 

1  GO  TO  801 

IF( ( I .GE. 100. AND. I .Lc. 199  )  .CR.  ( I. GE. 1100. AND. I. LE. 11 99 

1))   GO  TO  901 

817  IF(  I.EQ.IOOO)   GO  TO  202 

IF( I . EQ . 2000 )   GO  TO  201 

GO  TO  301 

202     PRINT  1000,  I 

1000  F0RMAT(20X, 'ERROR  C0Dt=( 

'  ,14 

, •)   GCOD  DATA  TAPE-NO  APPA 

1  RENT   ERRORS    •  ) 

RETURN 

201  PRINT  2000,  I 

2000  FGRMAT(20X, 'ERROR  CODE=( 

•~,f4 

__ }    ESTIMATED  DATA  AT  SOME 

1  POINT • ) 

RETURN 

. . _  30 L . P-BIN T_  9000 1. I__ 

9000  FORMAT ( 20X, • ERROR   CODE   IS  NOT  VALID — CGDE=',I4) 

RETURN 

401   PRINT  7000 

7000  F0RMAT( 20X, 'TIME  LOSS') 

IF( I.LT.30J 11=1+1000 

ID=I 1-1009 

GO  TO  (10,11,12,13,8,8,8 

,8,8 

V  8",  20 ,  21 ,22,2  3724  ,25,  2  6,8, 

..18,8  ),  ID 

10  PRINT  1010 
_  GO  TO  812 

11  PRINT  1011 
GO  T0_8J2 

12  PRINT  1012 
GO  T0_  812 

13  PRINT  1013 
  GO  TO  812 

20  PRINT  1020 
 GGJTO  8  12 

21  PRINT  1021 
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  GO^JO  8_12__  _    

22  PR  £NT  1022 

GO  TO  812   _   t  

23  PRINT  102  3 

 GO_TO_  812_  ____ 

24  PRINT  1024 

 GO  TO  812   

25  PRINT   102  5 

 G0jrp_812   _ 

26  PRINT   102  6 

 GO  T0_  812    

1010  F OR M AT ( 20 X i  'TIMER  FAILURE  GAUGE  STOPPED ' ) 

IP11_F0R_MAT  (  2GX,_«LEAJF  SW  ITC  H  __FA  ILURE   GAUGE   RAN  CONT  I  NUCUSLY^ 
Y  UN  TIL   BA  f T ER  Y  F  A I L E D • j 

1012  F0RMATC20X,  'TIMER  _FA  I_L  U  R  E  -  I NTER  MTT  TAN  T__OP  E  R  A  T_1 0  N_^  ) 

1013  FORMAT (  20X ,  'TIMER  FAILURE-TIME   DIFFERENCE  AT  END  OF  PA 
IPEft  TAPE 1  )    _   

1 0  20  FOR  MAT  ('20Xt  'NO  APPAP.  ENT  RE  A  S  ON  • ) 

10  2^ jFOR_MAJ_(  20Xt  'MISJAKE_  IN  ERROR_  CODE -HAS  NOT  BEEN  ASJJGNE 
ID') 

_1022  F0RMAT(20X, 'LEAF  SWITCH  FA  Ij_  U  RE  ' ) 

1023  FORMAT ( 20  X ,  'BATTERY  FAILURE') 

1024  FORMAT  (  20X  ,_•  I  MPROPER   TAPE  _INDEX  ING  •_)  

102  5  FGRMAT(20X, 'PUNCH  MOTOR  OPERATES   I NTERM I TTANTL Y ' ) 

1026  FORMAT  (  20X,  'PUNCH  MOTORFA I  LUREJJ  

501   PRINT  6000 

600  0  FOR  MA  T  (  2  0  X ,  'TIME  G  A  I  N^M   

IF (  I.LT.50) 11  =  1  +  1000 

_  JD= I  1-1029   _   

GO  TO  (30,12,11,20,22,24,23,8,8,8,8,8,8,8,8,8,8,8,8,8) 

 1,  ID  _   

30       PRINT  1030 

1030FGRMAT ( 20X, 'TIMER  FAILURE   2-1/2  MINUTE   PUNCH  INTERVAL' 
1) 

_     _  _G0_  TO  812    

601    PRINT  5000 

5000  FORMAT (20Xt 'INCORRECT  RECORDS  CODE')   

I F  <  I . L  T . 80)    1 1 = 1  + 1000 

 ID=I 1-1049  _ 

GO  TO  (24,51/52,53,54,55,56,57,58,59,60,8,8,8,8,8,8,67 
_  L»A 8_*  8 , 7  0 ,  7 1  , 7  2 ,  7  3  ,  8  L8^,  8 ,  8  ,  7  8  , 7  9  )  j,  I D 
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PRINT 
GO  TO 

1051 
812 

52 

PRINT 
GO  TO 

1052" 
812 

53 

PRINT 
GO  TO 

"  1053 
812 

54 

PRINT 
GO  TO 

1054 
812 

55 

"  print" 

105  5 

56 


59 


60 


67 


68 


70 


71 


72 


PRINT 

JULIO: 
PRINT 

„G0  TO. 
PRINT 
GO  TO 
PRINT 
GO  TO 
PRINT 
GO_TO. 
PRINT 

_G0  TO 
PRINT 
GO  TO 
PRINT 
GO  TO 
PRINT 
GO  TO 


78 


79 


73  PRINT 

 GO  TO 

PRINT 
GQ__TO 
PRINT 
GO  _T0 
10  51  FORMAT 

_  ID  *  ) 
10  52  FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
_f  ORMA_I 
1S0ME  P 
1073  FORMAT 
FORMAT 
FORMAT 
PRINT 
FORMAT 
IF(  UL 


1053 
1054 
1055 
10  56 
1057 
1058 
.10  59, 
1060 
1067 
1068 
10  70 
10  71 
1072 


1078 
J079 
701 
4000 


SL2_ 
1056 

8L2_. 
1057 

812  

1058 

JLLZ  

1059 

812  _ 

1060 

812. 

1067 

812 

1068 

812 

1070 

812  _ 

1071 

8  12 

107  2 

812_ 

1073 

812__. 

1078 

812 

1079 

812 

(  2 OX, 

(20X7 
(20Xi 
[20X, 
(  20X_t 
(20X, 
( JOX, 
(20X, 

(  20  X, 
(  20X, 
(20X, 
{  20X, 
(20X, 
(  20Xt 
OINT' 
(20X, 
(20X, 
(  20X, 
4000 
(  20X, 
T.90) 


GAUGE   INSENSITATI VE  AT  SOME   POINT  ON  RECOR 


SNOW   WITH   FUNNEL    IN  PLACE') 

INTAKE  .SILT  PROBLEM')  

INTAKE  PIPE   STOPPED  UP') 

DRIFTING  S_NOW  »  )  

FOREIGN  MATTER   IN  COLLECTOR ' ) 

CABLE  BREAKAGE ' ) _    _ 

GAUGE  TAMPERED  WITH') 

FUN  N  EJL_  F_A_LJ-E  N_  _I_N  T  0_  COLL  EC  TO  RJJ  

PRECIPITATION  LOSS  NO  REASON'.) 

PAPER  TAPE   SUPPLY_  RAN  OUT  M 

TIMER  TURNED   TO  TEST  POSITION') 

NOTCH  OF  WEIR   PROBLEM* ICE )•) _ 

LOG  JAMS  OR  DEBS E    IN  NOTCH') 

VALUE  GREATER   THAN  RANGE  OF  INSTRUMENT 


AT 


FLOAT  TAPE  DISENGAGED  FROM  RECCROER • ) 
ICE   JAMMINGt CAUSE  HIGH  G.H. ) • ) 
HEAVY  ICED  CREEK '  ) 


'TRACE  MALFUNCTION 
11=1+1000 


CCDE' ) 
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 ID=  1 1-1 07  9_  

GO  TO   ( 80,81, 82 ,8f 8,8*8,8,8,8) , ID 

80  PRINT   1060  _  _  

GO  TO  812 

81  PRINT  1081  

GO  TO  812 

82  PRINT   1  08  2  .  

GO  TO  812 

i080_FCAMAT120Xj  HRA.CE_  WITHOUT.  _PR_EC  I  P_ITAT_I  ONJ  )  

1081  FORMATi 2GX,  'PRECIPITATION  WITHOUT  TRACE   PUNCHES • ) 

1082  FORMAT (  2 0_X,  •  TRACER  J_NQ ON S I  STENT  1  )  

801   PRINT  3000 

J 0 00  FORMAT { 20 X ,  ' TRANS L A  TCR  £ R R 0 RSf )  _   

I F ( I .LT . 100  )  11=1+1000 
  10=11-1089     _  _ 

GO  TO   (90,91,8,8,6,8,6,8,8,8)  , ID 
_90       PRINT  1090  

GO  TO  812 

_JLL  -  JPRINJL  i°_5L  _.       

~  GO  TO  812 

_JL090__F0RMAT(  20X,  'READ  HEAD  MALFUNC  T I  ON  AT   SOPE  POINT  ON  REC 
10RD' ) 

_1091   F0j<MAT£2_0X,  'MANNUALLY   INSERTED  READI_NG  OK  DOUBLE  PUNCH 
1   WRONG • ) 

901  PRINT  10000    _  _   

100 0 0 • F 0 R M  A T ( 2 0 X , 'COMPLEX  ERROR  CODES  » } 

 LEJLIjlLT.1_200)    11=1+1000   _   _ 

I F ( II .GE. 1135. AND. I  I .LE.1199)   GO  TO  8 

ID=IJ-1099   __  _  

GO  TO   ( 100 , 10b , 1 02 , 1 03 , 1 0 3 , 1 0 5 , 1 06 , 1 1 3  , 1 0 8 , 1 08 , 1 1 0 , 1 1 1 

 1,  111,  113,  113,  115,  115, 117, 118, 119, 120, 121, 12 2, 123, 124,1 

22  5,126,127,  12  8,  129,  130",    131, 13 1,1 33, 134), ID 

_100  PRINJ_1024     

200     PRINT  1026 
 GO  TO  812     

102  PRINT  1080 

 G0_J0_20p_  

103  PRINT  1020 

_500  PR INI  108  2   

GO  TO  8l2 

105  PR_LNT_  1024   _ 

600     PRINT   102  3 

 JL0_IQ_8_12  

106     PRINT  1024 

_G0_Tp_60_q  

108     PRINT  1020 

JOO  _PRINT   1080     _  _   

GO  TO  812 

__1_10  PRINT  _1_02  3   _  .  

GO"  TO  200 
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-Ill  PRINT  IQ24 

800  PRINT  1081 
 GC  TO  812 


113 


115 

802 


PRINT 
GC  TQ 
PRINT 
PRINT 


1024 
500 


1012 
1051 


117 


118 
806 


119 

803 


120 


121 
804 

12  2 

L23~ 
8Q5. 

124 

-125. 

126. 

127_ 

128 


12  9 
130 

131 
807 

133 
134 


GC  TO 
_PRI_NT 
PRINT 

_QCL  J_0 . 
PRINT 

GO  TO 
PRINT 
PRINT 

_P_KJ_NT 
GO  TO 

GO  TO 
_PRI_NT 

PRINT 
_GO__TO_ 

PRINT 
_G  0  _T0. 

print 

P_R  I  NT 
GO  TO 
PRINT 
GO  TO 
PRINT 
GO  TO 
PR  I  NT 
GO  TO 
P_RINJ 
GO  TO 
PRJ_NT 
GO  TO' 
PRJNT 
GO  TO 
P_RINT 
G0~  TO 

PRINJL 
PRINT 
GO  TCL 
PR  I  NT 
PRINT 
GO  TO 
_PRINT 
GO  TO 


812 

1070 

1054 

8_12 

1060 

1024 


812 
1J)13_ 
105  2 
1055 
812 
102  3 
8  03 
1 024_ 
1052 
812_ 
1024 
804__ 
'1024 
105_7 
812 
10_2_4 
805 
.105  5 
804 
i052 
200 
1013 
700 
1023_ 
700 
1030 
200 
1081 
806  " 

1J?2  4 
1091 

812_ 

1072 

1073 

812 

1_020_ 

8  00 
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8         PRINT  8Q0Q1 


o  UUU  1 

rufsnA  1  1  £UA|      CrvrUrv      OUUC     n  M  O     IN  U  1 

D  C  C  IN 

A  o  J  I  blVC  U  1 

ft  1  7 

RPTIIRN 

END 





BLOCK  DATA 

C0MMGN/BLK4/LLL ( 12 ) /BLK5/TR ( 2 ) 

DATA  LLL/31 ,28,31,30,31,30,31, 

31 ,30_j 

3JjAQ  3 31/ ,T  R/l  H_  ,  1 

1HT/ 
END 
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